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ABSTRACT 


CAPS (Computer-Aided Prototyping System) is an integrated set of software tools that 
generate prototypes directly from real-time requirements. The success of CAPS depends on being 
able to generate the prototype quickly so that it can be evaluated, leading to the construction of a 
program built on true requirements thereby resulting in a better software product. The key to 
developing prototypes quickly is having a significant software base to choose reusable components 
from. The problem with the current version of CAPS is that there exists no software base storage 
facility. 

This thesis utilizes the Ontos database to build the object oriented conceptual design for the 
data object repository and uses TAE to create the graphical user interface to access the repository. 
It further explores various searching techniques to determine the best possible implementation of 
the repository search engine. 

The results of this thesis are a conceptual design that can be used to implement the software 
base and an interface which provides a fluid, intuitive, interactive environment in which the user 
will be able to manipulate the database when actually built. It further identifies the multi-level 
filtering technique as the best candidate for searching the database, because of its high recall, high 
precision, and reduced search time. 
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L INTRODUCTION 


For the past several decades, software engineers have constantly struggled with the issue 
of whether or not to rewrite their applications in the latest and greatest language on the market. 
While newer languages offer great benefits, they always come with a price. Every year massive 
man-power efforts and billions of dollars of investment are expended on the task of rewriting 
applications. Developing an application with reuse capability becomes an important issue. 

This thesis concentrates on designing an efficient software database and building a flexible 
graphical user interface for the software base of the Computer Aided Prototyping Sys- 
tems(CAPS), which is an ongoing software engineering project in the Computer Science Depart¬ 
ment of the Naval Postgraduate School. 

Chapter II describes the background knowledge and related work. Chapter III describes 
the current retrieval techniques(multi-level filtering retrieval process) of CAPS. Chapter IV dis¬ 
cusses the conceptual design of data storage. Chapter V discusses graphical user interface design 
issues and the implementation details. Chapter VI concludes with a summary of the work done 
thus far and discusses future concerns. It identifies several areas which need further improvement/ 
research. 

A. SOFTWARE REUSE 

1. Introduction to Software Reuse 

Software reuse is defined as the process of implementing or updating software systems 
using existing software assets. Software reuse is the application of reusable software assets to 
more than one software system. It may occur within a software system, across similar software 
systems, or in widely different software systems. 

A reusable software asset is a software product that is cataloged in a reuse library. This 
includes, for example, models of distinct functional areas (i.e., domains), domain architectures 
requirements, designs, code, databases, database schemas, documentation, user manuals, and 
test suites[Ref. 1]. 

2. The Importance of Software Reuse 

Software reuse provides a basis for dramatic improvements in quality and reliability, 
speed of delivery, and in long-term decreased costs for software development and maintenance. 
Industry has demonstrated that software reuse generates significant return on investment(ROI) 


1 



by reducing cost, time, and effort while increasing quality, productivity, and maintainability of 
software systems throughout the software life-cycle. 

A significant challenge to both management and technical staff is to improve the quality 
and reliability of an organization's systems in an era of decreasing budgets. The challenge is 
intensified by the ever increasing complexity and functionality of modem information systems. 
Software engineers have stressed the importance of reducing the cost, time, and effort required 
to build and maintain software systems. This applies to both in-house and contractor-developed 
systems. 

Many software development costs have outstripped hardware costs and are continuing to 
grow. The major factors contributing to this growth of software costs are the continuing increase 
in the size and complexity of software systems and an international climate that calls for rapid 
adaptation to new situations. Software reuse offers significant potential to hold down future 
costs by taking advantage of previously developed software and by developing software 
designed for future reuse. 

One response to this situation that has proven successful is the integration of software 
reuse principles into the software engineering process. Reusable software requires carefully 
analyzed and structured design that withstands thorough testing for functionality, reliability, and 
modularity. Accordingly, improvements manifest themselves in increased quality and reliability 
and in long-term decreased costs for software development and maintenance. 

Reuse reduces the risks and costs of software acquisition, development, and 
maintenance. Other benefits of adopting reuse include improved interoperability and support for 
rapid prototyping activities, such as CAPS, discussed later. A well ran reuse program decreases 
initial risk for development, maintenance, and acquisition activities by taking advantage of 
software already proven to be functional and reliable through prior usage. 

Reuse is already an integral part of every engineering discipline. For example, 
mechanical engineers do not design a combustion engine from scratch for each car rolled off an 
assembly line; software engineers do not recreate the interaction between an application and its 
screen icon for each new product; and aerospace engineers do not build a solid rocket booster 
from ground zero for each space shuttle. In all of these examples, the architecture and design of 
an item is reused to produce and manage a “product line”. This is also the reason why the 
architecture model of software reuse is so important. 
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Reusable software can be acquired, developed, maintained, and managed via a “product¬ 
line”, approach. For example, during the past decade we have to build systems quickly and 
cheaply. One strategy for doing this is to move to product-line techniques like commercial firms 
use to achieve economies of scale. 

The product-line approach will increase the software acquisition, development, and 
maintenance community's responsiveness to project’s plan and requirements for the future. The 
anticipated result is a capability to deliver more responsive, higher quality products (systems) to 
the end user more quickly, at reduced cost, and with less risk because common software is 
reused. 

3. The Benefits of Reuse 

The biggest benefit of reuse is that it lowers the cost of systems. Software reuse will 
yield significant benefits to the software acquisition, development, and maintenance[Ref. 1]. 
Commercial firms and government organizations have experienced that software reuse will: 

• Improve the quality and reliability of software-intensive systems; 

• Provide earlier identification and improved management of software technical risk; 

• Shorten system development and maintenance time; 

• Get products to market sooner; 

• Increase productivity; and 

• Reduce cost. 

4. Reuse Techniques and Approaches 

To provide a framework for reuse activities, [Ref. 2] separates reuse into compositional 
and generative techniques. An additional technique, denoted as adaptation, follows from these 
two and rounds out the framework. Compositional techniques use building blocks and group them 
together. Utilizing components that are passive in nature, its emphasis is on component libraries 
and on organization and composition principles. Generative techniques reuse patterns of knowl¬ 
edge. Utilizing components that are more active in nature, it is typified by language-based genera¬ 
tors, or by application generators which combine some reusable knowledge (patterns) with 
application-specific constraints to generate products (e.g., code). Adaptive techniques combine 
the nature of the two techniques above, but focus on transforming or modifying of descriptive 
(formal) specifications/languages into executable structures. 

These techniques require incorporation into a comprehensive and complementing set of 
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mechanisms or process models to be more readily put into action. Noteworthy approaches to 
reuse are found in [Ref. 3,4]. Three common process models, adaptive reuse, parameterized reuse 
and engineered reuse, are described in [Ref. 5] that incorporate existing and newly emerging 
reuse practices. These could be viewed as delineating the lines of reuse formality. 

Adaptive reuse is accomplished by salvaging or scavenging components from previous 
projects as a starting point. Occasionally, adaptive reuse involves reusing old components to cre¬ 
ate a modified version of an old system or porting them to a new platform or environment. 

Parameterized reuse occurs when a standard generic base program is established as a com¬ 
mon chassis. This base program is then used to build several different systems by extensions 
which meet the unique requirements of each system. 

Engineered reuse is the most formal of the three processes. It involves undertaking a 
domain analysis to derive a domain model and software architecture. Engineered reuse applies the 
results of the domain analysis to domain engineering, resulting in building and controlling reus¬ 
able components for use in new applications[Ref. 6]. 

The terms describing reuse do not stop here - the following may be of interest. Below is a 
list of terms extant in the reuse community that describe techniques manifesting various degrees 
of formality. Though some terms describe similar approaches, each seems to have an implicit rea¬ 
son for prescribing reuse. 

• Adaptive reuse: Making use of what is currently available. 

• Ad-hoc reuse: Reuse practiced even when there are no defined methods being utilized. 

• Carry-over reuse: Using one version of software component 'as is' in a subsequent ver¬ 
sion within the same system. 

• Architecture-centric reuse: Developmenting of components and applications based 
upon a generic architecture. 

• Black box reuse: Composing systems by plugging together reusable components. 

• Compositional reuse: Constructing new software products by assembling reusable 
workproducts 

• Derived reuse: Software reuse accomplished via the object-oriented principle of sub¬ 
classing. 

• Domain specific reuse: Constructing applications within a certain domain using prod¬ 
ucts, processes, and assets that are applicable to that domain. 
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• External reuse: Using workproducts produced in an non-organic, but related project 
and taken from an external library. 

♦ Generation-based reuse: Using application generators to build new applications from 
high level descriptions. 

• Institutionalized reuse: Reuse that is significantly practiced throughout the entire orga¬ 
nization employing formal and planned processes. 

• Internal reuse: Avoiding redundant implementation of functionality within a single 
project by careful design and inspection at early stages such that selected components 
are identified for distinct uses within a project. 

• Horizontal reuse: Described earlier as reuse germane to a horizontal domain. 

♦ Large-scale reuse: Reapplication of high-level components (e.g., requirements, archi¬ 
tectures, designs). 

• Leveraged reuse: Starting with existing workproducts in the development process and 
modifying as needed to meet specific system requirements. 

• Library-assisted (Repository-based) reuse: The existence of one or more, possibly 
interconnected libraries, supports development within an application domain. 

♦ Maintenance reuse: Similar to carry-over reuse, but stresses the use of products from 
an earlier version to base any enhancements to the system rather than allowing unique 
development from similar requirements. 

♦ Opportunistic reuse: Relying upon software developers to identify reuse possibilities, 
locate components (usually created without reuse in mind), and to integrate them. 

* Process-driven reuse: Practicing reuse as an integral and transparent part of both the 
software engineering process and broader acquisition process. 

* Small-scale reuse: Reapplication of lower-level code components (e.g., subroutines, 
object libraries, or Ada packages. 

• Systematic reuse: The planned reuse of workproducts with a well-defined process and 
lifecycles, with commitments for funding, staffing and incentives for production and 
use of reusable workproducts. 

♦ Vertical reuse: Described earlier as reuse germane to a vertical domain 
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B. COMPUTER AIDED PROTOTYPING SYSTEM(CAPS) 

The Computer-Aided Prototyping System (CAPS) [Ref. 7] is an on-going software engi¬ 
neering project at Naval Postgraduate School for developing prototypes of real-time systems. It is 
useful for requirements analysis, feasibility studies, and the design of large embedded systems. It 
also creates a software base library to support software reusability. CAPS is based on the Proto¬ 
type System Description Language (PSDL) [Ref. 8], which provides facilities for modeling tim¬ 
ing and control constraints within a software system. CAPS is a development environment, 
implemented in the form of an integrated collection of tools, linked together by a user-interface. 
CAPS provides the following kinds of support to the prototype designer: 

1) timing feasibility checking via the scheduler, syntax direct editor. 

2) consistency checking and some automated assistance for project planning, scheduling, 

designer task assignment, and project completion date estimation via the Evolution 

Control System, 

3) design completion via the editors, and 

4) computer-aided software reuse via the software base. 

A CAPS prototype is initially built as an augmented data flow diagram and a correspond¬ 
ing PSDL program. The CAPS data flow diagram and PSDL program are augmented with timing 
and control constraint information. This timing and control constraint information is used to 
model the functional and real-time aspects of the prototype. The CAPS environment provides all 
of the necessary tools for engineers to quickly develop, analyze and refine real-time software sys¬ 
tems. The general structure of CAPS is shown in Figure 1. 

As Figure 1 indicates, CAPS is a collection of tools, integrated by a user-interface. The 
CAPS User-Interface provides access to all of the CAPS tools and facilitates communication be¬ 
tween tools when necessary. The tools in the Figure 1 are grouped into four sections: Editors, Ex¬ 
ecution Support, Project Control and Software Base. 

This thesis concentrates on the software base. Being able to retrieve the correct components 
when necessary is a very complex task. Much work has been, and currently is being expended on 
the retrieval of software components. Because this problem has not yet been solved, we explore 
the reuse component retrieval techniques in the following two chapters. The next chapter will focus 
on those techniques which have been around for some time and have been explored under CAPS. 
Chapter HI will go further with a less explored, potentially more powerful technique. 
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Figure 1. The CAPS Development Environment 
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H. BACKGROUND AND RELATED WORK 

A. RETRIEVAL TECHNIQUES 

Much research has been done in the area of reusable software component retrieval tech¬ 
niques, all of which have tried to increase the search accuracy and reduce the retrieval time. There 
are three major concepts related to the reusable component retrieval techniques; representation, 
search, and measures of performance. 

Representation is the description of how the component storage is structured and facilitates 
the retrieval performance. For example, the multi-attribute technique, covered later, may be used 
for the future retrieval of a certain component. The schema of the component repository should 
include, at a minimum, several attributes related to the search module in order for the retrieval 
mechanism to do an efficient search. To make a long story short, the method of representation and 
the method of search work together to form a cohesive environment for information retrieval. The 
more refined and precise the method of representation, the easier the search mechanism be¬ 
comes [Ref. 9]. 

A lot of research has been conducted for search mechanics too, especially in artificial in¬ 
telligence and database management systems[Ref. 9]. Various search methods will be described in 
the following section. 

Precision and recall are the most important two measures of performance[Ref. 10]. Preci¬ 
sion is defined as the ratio between the number of relevant components retrieved and the number 
of the total components retrieved. It is the precise percentage of the useful retrieved components 
compared to the total retrieved. Recall is defined as the ratio between the number of relevant 
components retrieved and the number of relevant components in the library. It answers the ques¬ 
tion, “What percentage of the relevant components in the database did my query find?”. Both pre¬ 
cision and recall reach the ideal situation when the set of components retrieved is exactly the same 
as the set of components that are relevant. 

B. METHODS FOR RETRIEVING REUSABLE COMPONENTS 

The method for retrieving reusable components could be categorized by different 
approaches. There are three major approaches for retrieval: Interactive Browser, Informal 
Specification-Based method, and Formal Specification-Based method. 
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1. Interactive Browser 

An Interactive browser is a tool which helps the user look through the software base 
according to its hierarchical structure. The hierarchy might be structured by keywords(ex: list, 
ring, stack), specific features, categorizations(ex: data structure, interface, communication), col¬ 
lection name, author name, etc. The purpose of the browser is to let the user manually search for 
the desired component by going through the various levels of the library hierarchy. It is somewhat 

like a World-Wide-Web (WWW) 1 browser(such as Netscape) as it has similar pros and cons. 

The pros of a browser is that the user can completely control the library and view the 
whole library structure by browsing the various level topics. This is useful if the user is familiar 
with the software library and when the user is not familiar with it, it serves as an excellent tool to 
educate them. When the user is familiar with the software library, this technique proves to be 
much faster in finding relevant candidates than by other search methods. 

The cons are actually weaknesses in the topics already mentioned(the pros). First, since it 
is only efficient when the user is familiar with the software library, it will be a problem when the 
library is large. For example, it is not easy to search a topic in the WWW by browsing all of the 
Internet sites instead of using a search engine. The only exception is when the user already knows 
or has an idea about the location of that topic. Even when the Internet user knows of some partic¬ 
ular location of the desired stuff, how could s/he be sure that there is no other relevant stuff some¬ 
where else. The same thing can happen when browsing the software base for a particular 
component that is needed, raising the disadvantage of the browser; to cause very low recall in 
retrievals since the browser has much difficulty in covering all the relevant components. 

Thirdly, the browser is a totally manual controlled system, which means it is haltless 
unless the user terminates the process. Not only do recall and precision measurements suffer with 
this technique, it can be very time intensive when used on an unfamiliar, large repository. 

2. Informal Specification-Based Method 

The Informal Specification-Based Method includes keyword search, multi-attribute que¬ 
ries, and natural language searches[Ref. 11]. The difference between this method and browsing is 
that it involves an automatic search algorithm. In other words, the retrieval tool will halt and come 
out with all of the candidates related to the query. The reason we call it an informal specification 


1. WWW: World Wide Web of the Internet. 
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is because the attributes used are more informal and English-like, which will realize only general 
matching capabilities. Informal specifications are most useful for domain-specific repositories, 
because in such contexts it is possible for the administrator of the repository to anticipate the pur¬ 
poses for which a component will be used, and to design a keyword structure to match the appli¬ 
cation. However, these approaches are not well suited for exploratory design of new applications, 
which is the main goal of rapid prototyping. Retrievals based on informal specifications or key¬ 
words are also not very selective: in addition to the relevant components, these techniques may 
find many irrelevant ones, thus relying on manual effort of the user for a substantial part of the 
work in doing the searching[Ref. 11]. 

a. Keyword Search 

Keyword searching is based on a list of keywords, which are either known system 
controlled vocabularies or uncontrolled(unconstrained) vocabularies. In the case of unconstrained 
keywords, synonym tables are often used to find more standard words on which to perform the 
query[Ref. 10]. This technique is used by CAPS and the Operation Support System OSS, 
discussed later. 

The first advantage of keyword search is that it is easy to implement due to the 
simple concept. Secondly, it reduces the search time for a large library, because unlike the 
browser, it utilizes an automatic searching algorithm. Thirdly, the user does not have to know the 
library structure. Whenever the user looks up the keyword list table, which is just an interface for 
the search engine, s/he does not have to deal with the data storage; the algorithm does it for them. 
It indirectly isolates the implementation of the retrieval engine and the data repository. This 
aspect is also enhanced by the formal specification methodology which will be discussed in 
Chapter m. 

Measurement problems are the major downfall of keyword search. The fewer 
number of attributes used, the higher the recall and the lower the precision. Contrarily, the more 
attributes used, the lower the recall and the higher the precision. This leaves the user with a 
dilemma: how many keywords to specify. 

b. Multi-attribute Search 

Multi-attribute search is an extension of the keyword search. It is based on 
faceted classification. Facets, proposed by Prieto-Diaz[Ref. 12], are groups of related terms in a 
subject area. For example, a facet to describe the functions performed by components might be 
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terms chosen from find, compare, sort, update, send, receive, etc. A scheme is developed in 
reference [Ref. 12] to describe Unix components using four facets: the function performed by 
the component, the objects that are manipulated, the data structure used, and the system to 
which the function belongs. This provides a better description of Unix components than a pure 
keyword approach. However, it still relies on an informal description, using a limited set of 
facets and terms. The Multi-attribute approach is used by CAPS, DRACO, RAPID, OSS, the 
Reusable Software Library(RSL), and the Common Ada Missile packages project(CAMP). 

c. Natural Language Interface 

The Natural Language Interface is used by Reusable Software Library(RSL) and 
is a growing field of computer science research. Users can drive the retrieval query command 
with their natural speaking language. It is good for the user yet it increases the difficulty of 
implementation due to the broad semantics of the English language. 

d. AI approach 

Al-based work includes [Ref. 13, 14] and some recent work by Henninger[Ref. 
15], which uses a knowledge-base and statistical information to retrieve reusable components, 
based on keyword search from texts describing the components. However, because the 
characterization of the component behavior is completely informal, the behavior is 
unpredictable. 

3. Formal Specification-Based Method 

According to Webster’s Dictionary, the word “formal” means definite, orderly, and 
methodical; it does not necessarily entail logic or proofs or correctness. Everything that comput¬ 
ers do is formal in the sense that syntactic structures are manipulated according to definite rules. 
Formal methods construct the software architecture essentially with syntactic and semantic speci¬ 
fication rules[Ref. 16]. 

The formal specification-based retrieval method is based on the formal method of soft¬ 
ware architecture. Recent work using semantics for software component retrieval is reported in 
reference[Ref. 17,18]. The primary aim is to check that retrieved components yield the behavior 
specified in the user’s query, therefore increasing the precision of retrieval. Using formal specifi¬ 
cations as search keys has two main problems. The first problem is practicality: not all users are 
sophisticated enough to write formal specifications, much less correct ones. The second problem 
is that semantic matching is very time consuming, because some form of theorem proving must 
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be done. 


The Venari 2 project at Carnegie Mellon University, headed by Prof. Jeannette Wing, is 
devoted to retrieving components from software libraries, and has produced a number of interest¬ 
ing publications. Here we will not discuss their work on transactions and other infrastructural sup¬ 
port for retrieval, but only their work on the search process. 

Rollins and Wing [Ref. 19] discuss signature matching for retrieving higher-order func¬ 
tions from a Metalanguage (ML) library, 3 using X Prolog for matching user queries to component 
signatures. A, Prolog is used to implement matching modulo various theories, in order to support 

partial matches. 4 They also use Prolog to check simple pre- and post- conditions for ML func¬ 
tions. Although this paper demonstrates that higher-order logic is useful for such applications, we 
feel that higher-order logic is more powerful and expressive than necessary, and that higher-order 
logic tools like X Prolog are too inefficient. Of course, a higher-order language like ML requires 
the use of higher-order types, but these are first-order expressions, so that first-order matching 
could be used. Rollins and Wing point out that equational reasoning could dramatically increase 
precision, and they also discuss the possibility of specification matching. 

Zaremski and Wing[Ref. 20] extend this work. First, they consider signatures in two dif¬ 
ferent senses, as the rank of a function, and as the interface of a module; the second sense involves 
search and retrieval of modules, not just of functions. Second, they consider a wider variety of 
matching procedures and their combinations, although some of these are needed only because of 
the awkwardness of the higher-order encoding of operation ranks (e.g., uncurrying). Third, they 
implemented their matching procedures in ML, experimented with retrieving functions from 
actual ML libraries, and presented some interesting statistics on these experiments. 

In more recent work, Zaremski and Wing [Ref. 21] focus on specification matching, using 
the Larch/ML interface language to express pre- and post-conditions in first order logic, and the 
Larch prover to verify that candidate components satisfy these conditions. Various senses of 
matching are defined, but neither ranking nor partial semantic matching are considered. This 

2. This name is from the Latin verb “to hunt”. 

3. For these authors, the word “signature” refers to the rank of a higher-order function, rather than to the 
syntactic specification of a software module, as in the algebraic tradition. 

4. The Venari project uses the term “partial match” in a more restricted sense than we do; their term corre¬ 
sponding to our “partial match” is “relaxed match”. 
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approach has not resulted in a practical automated method for specification based retrieval. 

Because these specification-based methods are based on specification formalisms and axi¬ 
oms, they are free from ambiguity and can be transformed into normal representations by using 
logic and term rewriting rules without changing their meaning. 

The disadvantage is that specifications may be difficult for designers to write. Another dis¬ 
advantage is that processing times for the search algorithms may be excessive depending on the 
approach taken. Finally, matching formal specifications is a hard problem. 

C. CURRENT RETRIEVAL SYSTEMS AND TOOLS 

1. ASSET 

ASSET, an acronym for Asset Source for Software Engineering Technology, is 
sponsored by the Advanced Research Products Agency(ARPA) organized under the STARS 
program. ARPA tasked Loral Federal Systems (formerly IBM Federal Systems) and its principal 
subcontractor, SAIC (Science Applications International Corporation) to establish the ASSET 
Reuse Library to serve as a national resource for the advancement of software reuse across the 
Department of Defense (DoD). 

ASSET'S mission is to provide a distributed support system for software reuse within the 
DoD and to help foster a software reuse industry within the United States. ASSET'S initial and 
current focus is on software development tools, reusable components, and documents on 
software development methods. ASSET is participating in interoperation with other reuse 
libraries, such as CARDS(Comprehensive Approach for Reusable Defense Software), AdalC 
(Ada Information Clearinghouse), DSRS (Defense Software Repository System), and ELSA 
(Electronic Library Services & Applications Lobby). 

ASSET'S goals are to create a focal point for software reuse information exchange, to 
advance the technology of software reuse and to provide an electronic marketplace for reusable 
software products to the evolving national software reuse industry. To achieve these goals, 
ASSET operates the Worldwide Software Resource Discovery(WSRD) Library, and Newsgroup 
services. 

The ASSET staff are constantly working to catalog and add new reusable software 
components to the library. Consequently, to determine the latest contents of the library at any 
time, the ASSET account holder should log on and search the new assets listings. 

ASSET is populating the Worldwide Software Resource Discovery(WSRD) Library with 
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quality reusable software components, which can be distributed to its subscribers. The library 
specializes in software lifecycle artifacts, and in documents written specifically to promote 
software reuse and development. ASSET also interoperates with the CARDS and DSRS reuse 
libraries thus allowing ASSET users access to a larger variety of components. 

ASSET currently uses the STARS Reuse Library (SRL) mechanism as its library 
interface. The primary purpose of the SRL is to serve as a library mechanism for the operation 
of a software reuse library. It provides a search mechanism, using a combination of faceted and 
attribute-value classification schemes, for finding candidate assets from the reuse library's 
collection. Once a list of assets has been obtained, the SRL permits the user to browse 
through the descriptive material about each asset as well as through the source files of the asset. 
After browsing the user may then select assets for extraction from the library. A copy of the 
files of each asset being extracted are then made available to the user for immediate 
downloading or for copying to their own local directory area. 

ASSET has implemented its initial operating concept of library interoperation. Using 
TCP/IP protocol, ASSET shares software artifacts with the CARDS (Comprehensive Approach 
for Reusable Defense Software), AdalC (Ada Information Clearinghouse), DSRS(Defense 
Software Repository System), and ELSA(Electronic Library Services & Applications Lobby) 
repositories, allowing users to extract components from any of the above libraries. These remote 
library extractions occur transparently to the user. ASSET is continuing efforts to broaden its 
base of cooperating libraries. 

2. DRACO 

The Draco project[Ref. 22] is an approach to software engineering that has had a large 
impact on software reusability in general. Draco approach focuses on domain engineering of soft¬ 
ware. 

The most important aspect of Draco is the domain language. Software components are 
organized into problem areas or domains and a domain language describes objects and operations 
of a particular domain. There is a reusable component associated with each domain language 
object or operation. Since there is a potentially large number of components within a domain, a 
classification scheme is developed for the components called faceted classification to aid in orga¬ 
nizing and retrieving the components. 

Using faceted classification, Draco approach utilizes a multi-attribute query method. Que- 
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ries are constructed by the formulation of a tuple of attributes that best characterizes a particular 
domain. A query session begins with the most specific query, that is, all attributes filled in. If the 
results of the query are unsatisfactory, the user may generalize the query by inserting wildcards 
for attribute values. 

The advantages of faceted classification are that it is conceptually simple for users and rel¬ 
atively easy to implement Because of this, the concept has been borrowed to implement the 
retrieval mechanisms in both RAPID (see Chapter II.C.3) and OSS (see Chapter II.C.5). 

One disadvantage of multi-attribute search is that semantically similar components may 
not be found when their attribute definitions are different Draco alleviates this problem by main¬ 
taining a measure of conceptual closeness for the term lists of each attribute. This way, an unsuc¬ 
cessful search can be tried again using an alternative but similar term in one of the attributes. 

The disadvantages of faceted classification are that it is not suitable for unconstrained 
domains and semantically similar components may be missed from other domains, even with a 
conceptual closeness measure. 

3. RAPID 

The RAPID (Reusable Ada Packages for Information System Development) project is an 
ongoing effort in the Department of Defense. The objective of RAPID is to provide software engi¬ 
neers with quick access to reusable Ada packages in the information systems domain. The system 
performs reusable component classification, storage and retrieval. 

RAPID uses a faceted classification scheme to organize and retrieve components and thus 
uses multi-attribute searches [Ref. 23], The system is currently being beta tested but no measures 
of performance or quality assessments are available yet. 

4. The Reusable Software Library(RSL) 

The Reusable Software Library is a system designed to make software reuse an integral 
part of the software development process[Ref. 24]. The system couples a passive software data¬ 
base with interactive software design tools to help software developers find and evaluate compo¬ 
nents to meet their requirements. 

Components are stored in the database with attribute values that provide a basis for search. 
There are two methods available to search for components, standard multi-attribute search and 
natural language. The multi-attribute approach provides a menu driven interface in which the user 
selects the attributes with which to perform the search. Alternatively, the user may express his 
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query in the form of natural language, such as “I need a stack package.”. The system parses the 
input, extracts keywords from it and uses those words as attributes to perform the search. 

The designers of the system report that the natural language front end is considerably eas¬ 
ier to use but the search is significantly slower, by a factor of five to ten because of the natural lan¬ 
guage parsing overhead involved. 

5. Operation Support System 

The Operation Support System (OSS) is an ongoing project aimed at developing an inte¬ 
grated software engineering environment undertaken by Naval Ocean Systems Center. One goal 
of the project is to establish a Navy software library of reusable software components. 

The current prototype library subsystem allows component retrieval using faceted classifi¬ 
cation, keywords, or a textual browser. The components currently stored in the library are large 
command, control, and communications subsystems. Since the library is in its early stages, no 
information is available on its performance characteristics. 

6. CAPS 

The CAPS project at the Naval Postgraduate School, headed by Professors Luqi, Berzins 
and Shing, supports rapid prototyping for hard real time embedded systems. CAPS consists of an 
integrated set of software tools that help design, translate and execute prototypes. These tools 
include an execution support system, a syntax directed/graphical editor, an evolution control sys¬ 
tem, a change merge facility, and facilities to support retrieving reusable components from a soft¬ 
ware base. The execution support system includes a scheduler and a translator for automatic 
generators for schedule and control code. 

PSDL is the Prototyping Description Language of CAPS[Ref. 8]; it is used to specify both 
prototypes and production software. PSDL programs have two kinds of objects, corresponding to 
abstract data types and abstract state machines; they localize the information for analyzing, exe¬ 
cuting and reusing independent objects. Executable Ada modules can be associated with atomic 
PSDL objects, and CAPS can automatically generate “glue" code that composes these modules 
into a system having the structure described by PSDL. This generated code includes a schedule to 
enforce all real time constraints that have been declared. The system can then be compiled, exe¬ 
cuted, and tested. Error messages are produced during execution if constraints are violated. Figure 
2 illustrates a prototyping life-cycle. It shows two places where component search can be used in 
such a life-cycle: in constructing a prototype system and in constructing a production system. 
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Figure 2. A Prototyping Lifecycle 


Some work has done in the CAPS project on retrieving software components. Dr. Luqi 
suggested the use of specifications in retrieving software components[Ref. 17]. This suggestion 
was refined in later work, including [Ref. 25] and Steigerwald's Ph.D. thesis [Ref. 26]. In [Ref. 

26] it is assumed that each component has a fully expanded 5 algebraic specification written in 
OBJ3 [Ref. 27, 28, 29], and that the user's query is also a fully expanded algebraic specification 
that the desired component should satisfy. A Prolog program was written using symbolic 
representations of signatures to find syntactic matches between the signature of the query and 
the signatures of components. For each match found, a semantic validation was done by 

evaluating patterns that represent the functions in the signature, first in the query specification, 6 
and then (after translation) in the specifications of the matched components; the results of these 


5. This means that the results of any module expressions inside a module are substituted into the module. 

6. These patterns are terms that involve those functions, plus some variables, constants, and constructors, 
such that all other functional expressions are instances. 
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two evaluations are compared to determine the quality of each match. The approach developed 
in this series of papers is the inspiration for the approach taken in the present dissertation. 

The system described in [Ref. 26] has certain technical limitations. Its semantic basis is 
not well developed. Also, evaluating patterns with variables gives limited information about the 
semantic satisfaction of a syntactic match. In addition, since patterns can involve variables that 
may or may not be eliminated by rewriting, depending on syntactic peculiarities of the 
equations, it seems possible to have semantically equivalent specifications for which pattern 
evaluation would give conflicting answers, so that the match in question will appear not to 
satisfy its semantic requirements even though it really does. In addition, the approach is limited 
to total syntactic matches and to unparameterized components. 

Ozdemir's master's thesis [Ref. 9] describes a component retrieval system for the CAPS 
software base that uses keyword search and a browser. Both of these use PSDL for queries and 
for components. Ozdemir also provides a graphical user interface and facilities for integrating 
retrieved components into prototype systems, including techniques for transforming retrieved 
modules. A better developed version of these ideas appears in the master’s thesis of Dolgoff 
[Ref. 30]. This work is including retrieval of generic modules and handling of subsort matching. 
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III. MULTI-LEVEL FILTERING RETRIEVAL 


Multi-level filtering retrieval technique(MLFRT) is a new software component searching 
process developed for the CAPS software base[Ref. 37]. It is the combination of interactive brows¬ 
ing, informal specification-based and formal specification-based methods. Figure 3 describes the 
Multi-level filtering architecture; the top line indicates user modification of the query in light of 
the final filtering results. 



MATCHING 


MATCHING PROCESS 


Figure 3. An Organization Model for Software Component Search 

The implementation of the Multi-level filtering retrieval process is separated by three parts: 
the graphical user interface, the retrieval process kernel, and the data storage. This thesis is part of 
a joint-research project with two other CAPS team members; Doan Nguyen who made the major 
contribution of the retrieval kemel[Ref. 31] and Tuan Nguyen who dealt with populating the 
database and the specification axioms transformation[Ref. 32], This thesis concentrates on the 
front-end graphical user interface of the retrieval module and the inner data storage design. The 
final payoff of the joint research was an novel application for accessing the software base within 
CAPS. It provides a significant improvement over current release for accessing the software base. 

The retrieval kernel of the Multi-level filtering retrieval process is mainly composed of 
three parts: Syntactic Matching Filter, Semantic Matching Filter, and Searching Process. The query 
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specification is entered through the graphical user interface(GUI) and sent into these three modules 
which then search the data repository for candidate components. The results are then displayed by 
the interactive browser so that the user can make a selection decision. The whole process is iterated 
until the user gets the desired component. Once a target has been reached, the software reuse work 
has been accomplished. The next three sections will discuss the Syntactic Matching Filter, 
Semantic Matching Filter and Searching process in more depth. 

A. SYNTACTIC MATCHING FILTERING 

Syntactic matching filtering is based on non-behavioral information about components, 
such as keywords and interface declarations. Here we use two levels of syntactic filtering. The 
first level uses keyword and profile matching filters. By using these filters, the search module 
computes the indexes which partition the software library. These partitions contain the candidate 
components. This filters speed up signature matching, and is discussed later. The second level is 
signature matching filter, which finds the maps that translate the type and function symbols of the 
query into the corresponding type and function symbols of the candidate components. Later on, 
the search module will compute Profile and Keyword Matching Ratio values for each candidate 
component and then combine them with each component’s Signature Matching Ratio. The final 
combined value is referred to as KPS which stands for the product of Keyword, Profile, and Sig¬ 
nature Matching Ratio[Ref. 31]. The matching filters mentioned above need further elaboration 
due to their importance and are discussed below. 

1. Keyword Matching 

Even though keyword matching has a measurement trade-off problem(discussed in sec¬ 
tion II.B.2.a), it is still a useful method for multi-level filtering. It is easy to use, inexpensive to 
implement, and good for indexing components. However, we have to use keyword filtering care¬ 
fully with a limited number of general keywords that are controlled by a system administrator. 
Keywords describe categories of components and their relationships to other components. Sam¬ 
ple categories might be data structures, mathematical functions, search routines, and navigation 
functions. 

[Ref. 31] proposed the following measurement function to indicate how close the key¬ 
words of a query, Kwq, are to the keywords of a component, Kw M : 

KeywordMatchRatio(KwQ, Kw M ) = | Kw q n Kw m \/\Kw q | 
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This function measures recall. The numerator represents the number of relevant 
retrieved keywords while the denominator represents the total number of relevant keywords in a 
query. 

2. Signature Matching 

This section introduces and illustrates the basic concepts of signature matching, under 
the assumption that there are no subsort relations; the more complex situation when a sort 1 2 set S 
has subsorts (i.e., a partial order containment relation < on data types). We assume that each 
component M in the library has an associated algebraic specification of the form: 

(S’, i',E), 

where (S’, Z') is a signature with a set S’ of sorts and a set I' of functions whose argu¬ 
ments and results have sorts in S’, and where E is a set of equations stating properties that the 
functions in Z' should satisfy. 

We also assume that query, Q , is an algebraic specification of the form (S, z , E) where 
these symbols mean the same as The following illustrates these notions, using the notation 

of QBJ3 ; definitions for signature, specification, etc. 

Example 1 The algebraic specification for a module defining list of identifiers in our 
library might have a sort set S containing the sorts Id, List, and Bool, and a signature z of func¬ 
tions consisting of the empty list (denoted by nil), an append operation *, and a function to test 
whether an element is in the list, with the following syntax: 
sorts Id Bool List 
op nil : -> List. 

op : Id List -> List. 
op _in_: Id List -> Bool. 

According to OBJ3, the equations in the specification might be: 

I in nil = false . 


1. It means “type”. This thesis will use the words “sort” and “type” interchangeably, and will also use the 
words “function” and “operation” interchangeably. 

2. OBJ3, an algebra specification language, which can accurately describe the semantic behavior of soft¬ 
ware components. 
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I in (I 1 * L) = if (I == I') then true else I in L fi . 

We assume that the library has a set of basic sorts for commonly used types like bool- 
eans, identifiers, integers, and floating point numbers; that the names of these basic types and 
their associated basic operations are identical in the specifications and in the code; and that the 
library modules and the algebraic specifications for the basic types also have the same names. 

Definition 1 Given two signatures (S, x ) and (S', x'), a permutative signature map V: 
(S, x ) -»( S’, x 7 consists of injective functions V: S -> S’ and V: x X' such that for each 
function symbol /: Sj...s n -> s in x, there is a permutation rc such that V(j) : 

V(i lt(1) ) ... K(^ (n) ) -> V(i) is a function symbol in X' . A partial signature match v: 
(S,I) -> (S', T) is a permutative signature map V: ( S 0 ,l g ) (S',X' ) where 

(S g , x o ) is a subsignature of (5, X) ; it is total if (S g , x o ) = (S, X) . 

The assumption that V is injective on both sorts and operations is reasonable if there is 
no subsort relations, because otherwise the user would be asking for two or more things that are 
not actually different. 

Definition 2 Given a library and a query Q = (s , x, E) , the signature choice set for Q 
consists of all signature matches v : (s, X) (S', X') where t m = (S', X', E') is the specifi¬ 

cation of some component M, and where each match V is the identity mapping when restriction 
to the set of basic types and their basic function symbols. Note that the semantic information in 
the equations is ignored in syntactic matching. To simplify notation and make explicit the mod¬ 
ule specification associated with a signature match, we may write V: Q —> for a signature 

match V: (S, X) -> (S', X') such that t m = (S', I', E') is the specification of a component 

M. 

The more complex situation when S has subsorts. For example, a partial order relation 
c: is illustrated in the following 12 sort sets: 

Suppose that we have 12 sort sets Vj, V 2 ,.. where 

Vj = { A } 

V 2 = { A, B } 

V 3 = { A, B, C } V 4 = { A ,B , D } V 5 = {A, B, E } 
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V 8 ={A, B, C, D, E, F } 


V 6 = { A, B, C, D} V 7 ={ A,B,C,F} 

V 9 = {A,B,E,G} V 10 = {A,B,D,E} 

Vn = {A, B, C, D, E, G } V 12 = {A, B, C, D, E, F } 

Then we have the relation c as follow: 


Vi 

— v 2 





V 2 

eV 3 

V 2 

CV 4 

v 2 

^V 5 

V 3 

^v 6 

v 3 

c V 7 

v 3 

cV 8 

V 4 

sv 6 

V 4 

cV 8 

v 4 

£V 10 

V 5 

£V 8 

V 5 

c V 9 

V 5 

^V 10 

V 6 

CVn 





V 7 

— v 12 





V 8 

cVn 

V8 

^v 12 



V 9 

CV„ 





Vio 

£V 12 






Figure 4 describes the Hasse Diagram of these 12 sort sets. (A review of Partial Ordering 
Relations and Hasse Diagram concepts is given in Appendix A) 



Figure 4. A Hasse Diagram for the Signature Map Refinement Relation c 
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Note that only the maximal elements V n and V 12 in this partial ordering are of interest. 
All the others will be strictly less useful. This provides a pruning criterion for signature 
matching. 

3. Profile Matching 

The computations for signature matching would be very expensive if it were necessary to 
try all possible ways of pairing the functions and sorts of queries with those of components. It is 
therefore highly desirable to cut down the search space. This can be done. For example, if a 
query has a function f. AAB and a component has a function g: ABC -^D , then it is 

obvious that these functions cannot match, because their arguments have different sort patterns; 
there is no need to compute all possible sort maps to draw this conclusion. 

The purpose of profile matching is to speed up signature matching. Profile matching is 
actually an efficient approximation of signature matching. A profile is a sequence of numbers 
that describes how the sorts associated with an operation are organized. We can quickly deter¬ 
mine whether two given operations could possibly match by comparing their profiles, and hence 
quickly identify query operations and test cases that will necessarily fail. Profile matching uses 
pre-computed profile indexes to partition the library, and profile values are used as search keys 
in seeking components having suitable signatures. 

We now introduce some concepts to help us define profiles. The sort groups of an opera¬ 
tion are bags (i.e., multisets) consisting of two or more sort occurrences from the rank (i.e., the 
argument plus value sorts) of the operation that are related under the relation =, which is the 
transitive-symmetric closure of the ordering c on sorts. The unrelated sort group is the bag 

(actually a set) of all sort occurrences that are not in any sort group. 

Definition 3 The profile of an operation is a sequence of integers, defined as follows: 

® The first integer is the total number of occurrences of sorts. 

» If the total number of sort groups, N, is greater than 0, then the second to (l + AO ,h 
integers are the cardinalities of the sort groups, in descending order. 

« The (2 +N) th integer is the cardinality of the unrelated sort group. 

« The (3 +N) th integer is: 

0 if the value sort is different from any of the argument sorts; and 
1 if the value sort belongs to some sort group. 
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A signature map can relate two operations only if they have the same profile (i.e., the 
same number of sort occurrences, the same number of sort groups, the same sort group cardinali¬ 
ties, and the same unrelated sort group cardinality). 

Some sample profiles are shown in Table 1, where A, A', B, C, E, F, G are sorts, and A' is 
a subsort of A: 


Operation 

Profile 


110 

EF^G 

330 

AA^B 

3210 

ABBCA —> C 

622201 

CCBAA —>Z? 

622201 

CCBAA-+A 

63211 

CCBAAA'^A 

74211 


Table 1: Some Operations and their Profiles 


For the operation »A”: 

(1) . There is only one occurrence of sort, therefore the first integer is 1. 

(2) . Since there is no sort group occurs in this case(/V = 0), we skip the cardinality calcu¬ 
lating rule for the sort groups. 

(3) . The cardinality of the unrelated sort group is 1, so the (2 + 0)* integer is 1. 

(4) . The value(range) sort is different from any of the argument(domain) sort, therefore 

the (3 + 0)* integer is 0. 

The final profile of this operation is 110. 

For the operation “ABBCA—>C 

(1) . There are six occurrences of sorts, therefore the first integer is 6. 

(2) . By the definition of sort groups, there are three sort groups AA, BB and CC in this 

case(/V = 3), hence the second to (1 + 3) th integers are the cardinality of each of them in decreas¬ 
ing order, which are 2, 2,2. 
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(3) . Since there is no unrelated sort groups in this case, the (2 + 3)* integer(the cardinal¬ 
ity of the unrelated sort groups) is 0. 

(4) . The value(range) sort “A” belongs to one of the argument(domain) sort groups, 

therefor the (3 + 3)* integer is 1. 

The final profile of this operation is 622201. 

B. SEMANTIC MATCHING FILTERING 

The choice set of signature matches for a query can be further narrowed by semantic 
matching filter. Under certain reasonable assumptions, this can be done efficiently by checking 
satisfaction of certain semantic conditions that are necessary for any correct answer to the query. 

We discuss only unparameterized specifications here. In addition, we assume throughout 
that the specifications associated with components have equations that are Church-Rosser and ter¬ 
minating. This means we can apply the equations from left to right to simplify a term to a unique 
simplest possible form, called its canonical form, which can be regarded as the result of evaluat¬ 
ing the term. For example, the canonical form of the term, 
a in (b * (a * nil)) 

using the equations in Example 1 is true. 

The semantic validation procedure takes ground equations t=t' from the query specifica¬ 
tion Q and tests them for satisfaction in the candidate specifications. Ground equations , that is, 
equations whose terms have no variables, are particularly useful here, because any ground equa¬ 
tion provable from an equational theory Q is satisfied by the standard model of such a theory, 
i.e., the initial algebra t q of Q, so that those equations are also satisfied under the initial (stan¬ 
dard) interpretation of Q. 

This is important because either the query Q or the component specifications t m may 
have an initial interpretation, so that proving the semantic correctness of a signature match V: 
Q-*t m could require complex theorem proving to check inductive consequences. A special 

property of ground equations is that their translations V(t) = V(t') must be provable from t m in 
order for V to be correct, regardless of whether Q and t m are interpreted initially or loosely. 
Therefore, we can use them under either interpretation to further restrict the search for correct 
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answers to the query Q. The great advantage of ground equation is that we can automatically set¬ 
tle the issue of whether V(t) = V(f) is provable from t m by comparing the irreducible forms of 

V(t) and V(t') after rewriting them with the equations in T M , since T M is assumed to be Church- 

Rosser and terminating. This results in an efficient decision procedure for behavior queries 
expressed in this form. 

The following describes how to rank members of the choice set based on semantic 
filtering. 

Since many signature matches for a query might be found in a large library, it is impor¬ 
tant to narrow the search by using whatever semantic information is available at each filtering 
stage, either from the specification t m , the compiled component M, or both. For this, a sound 

way of ordering the matches according to their relative degree of semantic correctness is needed. 
We define below two measures that can be used for this purpose. These measures assign a value 
to each pair (V, i v ) consisting of a signature match V for the query Q, and whatever information 

i v is available at that stage about equations that have passed or failed the semantic checks. Such 

measures can be used independently or in combination to define choice sets. 

Given a match V, the information i v available for it may be either syntactic or semantic. 

Syntactic information will include the functions in the query's signature for which the match is 
defined and their translation under such a match. Semantic information will include the results 
of checking correctness of ground equations after translating them through V. For each such 
ground equation and match V three things can happen: 

• The translated equation is well defined and, after reducing each side to normal form 
using the equations in the specification of the module matched by V, yields an identity ; 
therefore this equation has succeeded for this match; 

• The translated equation is well defined and, after reducing each side to normal form 
using the equations in the specification of the module matched by V, yields an equation 
whose two sides are different; therefore this equation has failed for this match; 

• The equation could not be translated, because the match V was undefined for some of 
the functions appearing in the terms of the equation; this is also a kind of failure. 

Note that we can associate each equation with a function symbol, namely the top function 
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symbol of its left side. Therefore, we can assume that the semantic information in i v is organized 

by function symbol so that for each such symbol / in the query's signature we have a set of 
ground equations for it, and information about their success or failure for the match V. 

The first measure jx assigns to each pair (VJ v ) a real-valued function ^ (VJv) : o. 9t , 

where a is the signature of the query Q , defined as follows: 

• If v oo is undefined, then \i, v l ) if) =0. 

® v (f) is defined but has no ground equations associated with it, then (0=1 . 

® Otherwise, = S “? cess (f) where success(J) is the number of successful 

r {vj v ) Equation (J) 

checks for ground equations t = f with t having / as its top function symbol 
reported in i v , Equations (0 is the total number of such equations. 

Consider now two different matches V and V’ for the same query Q, and suppose that the 
same ground equations from Q have been tried for V and for V’. Then we can compare the 
degree of success of these matches on an operation by operation basis. If for each operation sym¬ 
bol / we have \l (VJ ) (/) >^ (r/w) (/) , then V is an altogether better match than V’. The ideal 

situation is of course when we find a match that is better than all other matches in exactly this 
sense. However, such an absolutely better match may not exist in the library and we may only 
get matches that are maximal in their degree of success, that is, no other match is better than 
them for all functions. This can happen when a query is large enough that two or more parts of 
the required functionality are available, but their combination is not. In such a case we will find 
several maximal signature matches that are each best for some fragment of the functionality, but 
are incomparable among themselves under the n ordering. An appropriate environment could 
use this information to help the user synthesize an optimal combined component 
out of actual components whose corresponding signature matches have maximal n -measures. 

The second measure SemanticMatchRatio is cmder. It is obtained from the first by assign¬ 
ing to each pair (VJ v ) a real number defined by the equation: 
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SemanticMatchRatio (V,I v ) = 5 

/s a ’ v 

where Q is the signature of the query Q . 

Once we obtain a SemanticMatchRatio of a component, we can compute the overall 
ComponentRank. Since Semantic Matching Ratio is the most significant information and deriv¬ 
able from Profile Matching and Signature Matching, it is important that we order the component 
base on this. Keyword Match Ratio is the second important piece of information due to how 
well a user can specify the keywords. The ComponentRank is then a 2-tuple of matching ratios 
with lexicographic ordering and is defined as follows: 

• A component which has a higher SemanticMatchRatio is ordered first. Componen¬ 
tRank would be included its SemanticMatchRatio and KeywordMatchRatio. 

• Any components which have the same SemanticMatchRatios, then a component with 
a higher KeywordMatchRatio will be used to order the components. Again Compo¬ 
nentRank would be included its SemanticMatchRatio and KeywordMatchRatio. 

C. SEARCHING PROCESS 

After MLFRT did the syntactic matching filtering and the semantic matching filtering, it 
needs to retrieve the candidate components from the physical data storage, which will be dis¬ 
cussed in chapter VI. There should be two important data that reside on the physical data storage. 
First, the data used for matching. Second, the data used for importation to a user’s prototype. The 
data used for matching are specified by item (a) and (b) below. Once a component is selected by 
the user, the data used for importation to user’s prototype is specified by item (a), (c), and (d). 
Therefore, we organize the physical file representation of a software base component as follows: 

(a) A file containing a PSDL specification, for the translation and scheduling for a proto¬ 
type using the component. 

(b) A file containing a OBJ3 specification, used for both signature and semantic matching. 

(c) A file containing an Ada specification, which is imported to become an atomic opera¬ 
tor’s Ada specification in a prototype, after some modifications. 

(d) A file containing an Ada body, corresponding to the semantic part. It is imported to a 
prototype, to become an atomic operator’s Ada body, after some modifications. 

This organization supports traditional graph search algorithms, such as depth first search, 
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to implement DBMS operations such as initialize, delete, add, and retrieve. There could also be a 
file for compiled code, which could replace the use of OBJ3 for some queries. 

The following algorithms find the candidate components in a software library: 

Algorithm 1 FindCandidateComponents 
Input: 

Q = (S,E). 

KwQ = {Query Keyword Ids}. 

G = (P,R) where P = {Partitions} and R = {Inclusive relations}. 

ComponentLookupTable = Array of 2-field records: Component Keywords and 
Component Pointer. 

Output: 

CandidateTable = Array of 3-field records: Component Id, Keyword Matching Ratio, and 
Profile Matching Ratio. 

Invalid Operations = {Invalid Operations} 

(0) Initialize CandidateTable to empty. 

(1) Compute profile value, p, for each operation in Q.S. 

(2) For each profile p, verify against the bottom nodes in G. If Freq(p) =0, then store p in 
Invalid Operations. 

(3) For each ground equation i in Q.E, identify its associated profiles using the 
correspondinn operation’s profile values found in step (1). Store these associated 
profiles in called Gp(i). (Note: Gp(i) is an array of multisets). 

(4) Let N be the set of starting nodes that contains every node indexed by profile multi-set 
of size one that is included in the query profile. 

(5) For each n in N, call DepthFirstSeaxchForward. 

(6) Report invalid operation(s) in Invalid Operations. 

Algorithm 2 DepthFirstSearchForward 
Input: 

G = (P,R) where P = {Partitions} and R = {Inclusive relations}, 
v = An element of P. 

CandidateTable = Array of 3-field records: Component Id, Keyword Matching Ratio, and 
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Profile Matching Ratio. 

Gp = {Gp(i), where Gp(i) is a multiset of profile in a ground equation i in Q.E} 
ComponentLookupTable = Array of 2-field records: Component Keywords and 
Component Pointer. 

Output: 

CandidateTable = Array of 3-field records: Component Id, Keyword Matching Ratio, and 
Profile Matching Ratio. 

(1) Mark v visited. Assign Pv with Partition v’s profile multiset. 

(2) For each Gp(i) in Gp, If Gp(i) contains Pv then 

Calculate the Profile Match Ratio. 

For each component pointer at node v do 

Index to an element in ComponentLookupTable. 

Calculate the Keyword Match Ratio. 

Store Profile and Keyword Match Ratios and 
ComponentID in CandidateTable. 

(3) For each vertex n adjacent and above v do 

If n not visited then DepthFirstSearchForward. 

D. CONCLUSIONS 

The multi-level filtering retrieval process(MLFRP) must be further evaluated and imple¬ 
mented for more practical components that can easily map to the real world. This thesis concen¬ 
trates on the front-end graphical user interface of this MLFRP and the physical data storage 
design which will be discussed in the next two chapters. Chapter VI discusses the conceptual 
design for the physical data storage of the reusable software components. Chapter V discusses the 
design issue and the implementation detail for the graphical user interface of MLFRP. 
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IV. DATA STORAGE DESIGN 


Up to now we have discussed the searching process and multi-level filtering retrieval tech- 
nique(MLFRT) for the CAPS software database. The next issue addressed in this thesis is making 
a conceptual design of a physical data repository for the reusable software components. 

A. INTRODUCTION 

As we mentioned in chapter II, the searching process, retrieval technique and the design of 
data repository are tied together in the research of software reuse. The more cohesive the design 
integrity, the better efficiency the final retrieval performance. [Ref. 31] has made a small scale 
software base mock up which stores 12 typical data structure components in unix based files. The 
experiment in Nguyen’s work showed that the combination of the multi-level filtering retrieval 
technique(MLFRT) and the DFS searching algorithm does work. It also showed that the MLFRT 
is the best candidate for searching the database because of its high recall, high precision, and 
reduced search time. However, this result has been validated only for specific data structure types. 
It must be further evaluated and implemented for more practical components that can easily map 
to the real world. This chapter discusses the conceptual design of the physical data storage of the 
reusable software components. We discuss several design issues based on the previously dis¬ 
cussed searching process and the MLFRT. Nevertheless, the separate individual implementation 
does not effect the integrity of this conceptual design. 

B. REQUIREMENTS ANALYSIS 

The data storage of the CAPS software base is broken into three sets of requirements. It 
has basic requirements which cover background requirements, system requirements which are 
dictated by CAPS, and functional requirements which necessitate traditional DB support func¬ 
tionality. 

1. Basic Requirements 

♦ Based on the requirements of the MLFRT, the data storage should store four pieces 
of source code for each component. They are the Ada specification, Ada body, 
PSDL, and OBJ3 code. 

♦ The database schema design should support all the defined terms in the MLFRT 
module, such as partial ordering, syntactic matching, signature matching, etc. 

♦ Because of the dynamic length of the data entries, an object-based database system 
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is required. 

» Because of the highly inter-related attribute characteristics and the stringent 
requirements for searching performance, an object-oriented database system is 
required. 

• The software component repository should be able to be maintained and manipulated 
without connecting with any searching engine or any MLFRT module and therefore 
a direct manipulation interface is required. 

2. System Requirements 

Because of the constraints of CAPS, the software component repository should meet the 
following system requirements: 

♦ The repository must be accessible in the unix based workstation, such as Sun or Sol- 
borne or the compatible platforms. 

* The repository must be accessible in X-windows or the compatible windows environ¬ 
ments. 

3. Functional Requirements 

• The software component repository should support the basic database manipulation 
functionality, such as append, delete, modify, browse, backup, etc. 

* The database schema should accommodate or at least consider the flexibility of the 
multi-type attributes of the reusable software components, such as data-structure, GUI 
metaphors, communications, etc. 

C. DESIGN STRATEGIES 

Database design is always an arguable issue in that many different designs can result from 
the same requirements. Implementations too can vary with the same design. This feature is even 
worse in the object-oriented database design and programming area. In this section we explores 
two design strategies which are based on the previous requirement analysis. The pros and cons for 
each strategy are also discussed. 

The first strategy is used in the mock up in [Ref. 31]. Let’s call it the semi-automatic facil- 
itative software component repository. This strategy picks a proper object-oriented database 

engine, 1 such as ONTOS, which will be discussed later, to be the storage mechanism for the soft¬ 
ware components. The purpose of this database engine is to deal with the simple database I/O pro- 
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cess which means we only regard it as a data storage engine(just for storing/write and retrieval/ 
read data). In such a strategy, no complicated search algorithm will be involved in the Database 
Manipulation Language(DML) of the database engine, which in this case is C++. This means we 
do not have to put the complete database schema into the database because all the attribute infor¬ 
mation is kept in another small fixed-length, text-based assistant(companion) database . 2 All 
searching algorithms must be applied to this auxiliary database. Once the key information of the 
candidate components have been gathered(such as physical file name, component-ID number, 
etc.), the software base system passes the key information into the real object repository. From 
this point it connects to the DML for accessing the I/O process of the desired components. 

The advantages of this strategy are as follow: First, the reduced involvement with the 
database simplifies data storage and therefore helps keep the overall task of the DBMS much sim¬ 
pler. Second, it isolates the implementation tasks between the searching and retrieval process and 
the data object manipulating actions. It helps facilitate better database transportability for the 
future system upgrading or porting activity. Third, because of the implementation-isolated fea¬ 
ture, the searching process has a distinct, uncoupled refinement space. The DML independent 
characteristic modularizes the development of the searching process resulting in more defined 
space for the future research. It also meets the flexible open architecture system design principle. 
However, the simpler utilization of the database repository also have several disadvantages. First, 
in the long run, the DBMA(Database Management Administrator) of the software base has to 
manage two separate databases which it decreases system integrity and increases the overall sys¬ 
tem load. Second, no matter how perfect the system analysis is, the interface between the auxil¬ 
iary database and the major data repository will always be a problem. Some overlapped 
manipulating mechanism might be developed on both sides due to the duplicated requirement 
analysis. Third, it increases the system un-interoperability hazard because of the extra connection 
task, let along handling the speed mismatch between different languages(i.e., one for the search¬ 
ing process and one for the DML of the database engine). 

The second strategy, which is still in the conceptual design stage, grants the database 
engine a complete manipulating capability over the software components. In this strategy, a com- 

1. Engine means it meets or it supports most of the basic database facilitating functionality, yet it requires 
user written utilities to make it work instead of the intuitive plug and run activities. 

2. It might be a unix-based-file or represented by any other formalism such as a sequential file or a direct 
access file. 
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plete data object schema 3 analysis needs to be done first and then will be defined with the Data¬ 
base Definition Language(DDL) in the selected object-oriented database engine. The 
SBGUI(Software Base Graphical User Interface), discussed in chapter V, directly passes the 
query information, which is taken from the user, into the database engine to allow the DML to 
conduct the searching process. 

Basically, the advantages of the second strategy are the opposite of the first strategy. First, 
it has a clean and easier architecture. As in most current existing database systems, a system 
architecture like this usually helps make maintenance much easier. Second, it decreases the un¬ 
interoperability hazard between the SBGUI and the real data repository. Third, it reduces the 
Database Management Administrator(DBMA)’s overall work load significantly compared to that 
of the first strategy. Fourth, there is less chance for analysis mistakes between the SBGUI and the 
OODB due to the clear roles they play. 

However, the disadvantages are not so obvious. First, the implementation is harder 
because of the dependency of the DML. Since all search process and MLFRT has to be imple¬ 
mented by the DML, the developer must become intimately familiar with the DML of the 
OODBMS. Second, the more DML involved, the less database transportability available. The 
DBMS dependency feature also restricts the future system upgrading capability. Third, it has 
lower system flexibility. Once the search algorithm is modified, the DML has to be rewritten. Fig¬ 
ure 5 illustrates the concept of the two design strategies. 


3. In C++, it is called Class. 
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D. EVALUATION 


Some evaluation work has been done for these two strategies. McDowell used the second 
strategy to create a small database with operator component objects and abstract data type objects 
in his master thesis[Ref. 33]. Dolgoff[Ref. 30] improved his work with a more sophisticated con¬ 
sideration of the physical schema definition and more precise matching process. 4 Both of them 
used the ONTOS OODBMS to be the database storage engine. The practical developing experi¬ 
ence and the empirical performance told us that further improvement is getting more and more 
difficult because of the strong cohesive feature among the search process and the DML code. 

The experiment in [Ref. 31] proved the MLFRT is the best candidate search process for 
accessing the software base. However, it used the first design strategy to reach the theoretical 
proof for the MLFRT technique. From a technical point of view, to use a companion database 
might be a good proposal for the Decision Support System(DSS) in some management research 
areas, yet it is not proper for implementing a mass software component storage system. CAPS 
software base research members spent a great deal of time attempting to find the best solution to 
solve the complex inter-related data representation between Ada and C++. 

[Ref. 34] proposed a step through methodology which supports a smooth bridge control 
method and overcomes the integration obstacles between Ada and C++; where Ada is the major 
implementation language for CAPS and C++ is the DML of the ONTOS database engine. By 
using this method, the empirical implementation for the searching algorithm acts like that used in 
the first strategy. This means both the CAPS implementation language(Ada), and the DML for the 
ONTOS database engine(C++), are involved in the searching algorithm. However, the physical 
data storage design strategy acts like that of the second strategy, which means there is no compan¬ 
ion database. The ONTOS data repository will be the only database, which helps the system inte¬ 
gration and reduces the over all work load for the DBMA. Figure 6 illustrates the concept of the 
implementation by using the bridge control technique. 


4. Scott Joel Dolgoff proposed an ordering matching process, which includes operator component match 
ordering and type component match ordering. 
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Figure 6. Practical Implementation Concept 
of the CAPS Software Database 

E. IMPLEMENTATION DETAIL 
1. ADT Design 

Since this thesis concentrates on the software base while applying the multi-level filtering 
retrieval technique, the database schema must meet the requirements mentioned earlier(Chapter 
V.B) in order to properly support the database. The most important abstract data type(ADT) we 
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have to define for the software base is the Component, which is the physical node that resides in 
the hasse diagram and represents a real software component. Figure 7 illustrates the Component 
class definition diagram. 



42 













2. Bridge Control between Ada and C++ 

Ada is used by CAPS for developing the rapid prototypes and the target application. How¬ 
ever, currently there is not a OODBMS which supports Ada. We found out that ONTOS is an ade¬ 
quate database engine that meets all the requirements of the software base. The only problem is 
that it is based on C++, which raises an issue for the implementation; how to interface the com¬ 
munication between Ada and C++? 

[Ref. 30, 33] had tried to use system calls to solve the inter-communication problem 
between Ada and C++ in their software base mock up experiments. Empirical experience showed 
that implementation in this way is quite dangerous. First, by using system calls, it is not easy for 
the caller to facilitate all of the functionalities in the called side. Second, as this would be a highly 
interactive system, which will continue to use system calls (Ada calling C++ or C++ calling Ada), 
many errors will occur due to the parameter passing and the different data representation between 
the two languages. Many unexpected results could happen, e.g. constraint errors due to the differ¬ 
ent conventions of Ada and C++; their arrays, strings, numerators, to name a few. Such experi¬ 
ence showed that, while the system calls might be a good method for triggering another unrelated 
executable program within a certain application, it is not suitable for a highly inter-communicated 
system like the situation in our CAPS software database. 

A better way to solve this problem is to allow the software communicated with each other 
via the C++ interface package in Ada (Interface. C), which supports importing C functions into 
Ada and exporting Ada subprograms to C++[Ref. 35]. [Ref. 34] has successfully developed a 
bridge control technique in the on-going CAPS Design Database research by using the C++ inter¬ 
face library in Ada. This thesis has also successfully developed a software base mock up which 
meets all the MLFRT constraints and requirements by applying the same bridge control tech¬ 
nique. The sources code of the mock up is in Appendix B. Figure 8 illustrates a sample usage of 
the pragma in Ada for calling C++ functions. 


procedure ada_c_open_database(ddb : in cstring); 
pragma interfaced,adacopendatabase); 

pragma interface_name(ada_c_open_database, " ada c open database_FPc"); 

Figure 8. Sample Ada Interface Pragma 
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The key point of the bridge control technique is that the user has to define the same data 
types and data operators in Ada and C++ simultaneously, and referenced as mirror programs. Fig¬ 
ure 9 illustrates the mirror programs in the mock up of the software base. 


Component_s.a 


Component.h 

Component_b.a 



Component.cxx 





Component_Interface_s. a 



Component_Interface.h 

Component_Interface_b. a 



Component_Interface.cxx 


Db_utility_s.a 


_ 

Db_utiltity.h 

Db_utilityjxa 



Db_utility.cxx 


Exception_Interface_s. a 



Exception_Interface_.h 

Exception_Interface_b.a 


Exceptionjnterface.cxx 


Figure 9, Mirror Programs in CAPS Software Base 

Another important feature of the bridge control technique is that all the parameter passing 
activities are called by reference. By using such a strategy, the bridge control technique success¬ 
fully skips all of the tiny data representation discrepancies between Ada and C++. It also reduces 
the potential hazard for communication errors. Figure 10 illustrates the concept of the calling 
module. 



Figure 10. Calling Module of the Ada/C++ Bridge Control 
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3. Using ONTOS 

ONTOS is a powerful object-oriented database management system(OODBMS), never¬ 
theless, unlike the other relational database management systems, there is no Integrated Develop¬ 
ment Environment(IDE) to facilitate easy of use. This limitation, however, is common throughout 
all OODBMS(ex. Omnisciences OODBMS). Part of the reason is that the object oriented data¬ 
base has a feature of highly inter-related attributes. Because of this, users have to create the data¬ 
base template and define the schema by writing C++ code and then commit them into the database 
themselves. Therefore, a series of command line instructions are required for the processing. A 
quick ONTOS usage manual is in Appendix C. 
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V. GRAPHICAL USER INTERFACE 


Because of leaping improvements in computer soft/hardware and network operating sys¬ 
tem, Graphical User Interfaces(GUI) are becoming more and more important. The purpose of a 
GUI is to speed up the software exploration operation, help user to sophisticatedly manipulate the 
designed functionality of the application, and support a user friendly interactive environment. 
Excellent software without a well-designed GUI is very limited and sometimes useless. It is like a 
Russian astronaut working with a US counterpart on the space shuttle. They both are from excel¬ 
lent space programs, but if they don’t speak the same language, nothing is accomplished. The 
communication obstacle washes out the well-trained capability. GUI plays the same role of com¬ 
munication, only between users and software applications. 

CAPS is a set of many individual tools. It includes the Syntax Direct Editor, PSDL editor, 
graphical editor, user interface editor, etc. To link all these tools together, a user friendly tool 
interface is needed, so that the user can effectively utilize the CAPS tool set. Thus, how to select a 
user interface tool and how to design the user interface itself becomes an issue. While this thesis 
concentrates on the CAPS software base and techniques to implement it, some attention must be 
focused on the interface to the software base in order for it to be as effective as possible. This 
chapter was designed to do just that. 

A. REQUIREMENTS ANALYSIS 

The first CAPS Software Base Graphical User Interface(SBGUI) was developed by 
Dogan Ozdemir[Ref. 9]. Later on, Scott Dolgoff[Ref. 30] made some improvement to it by pro¬ 
viding the integration of software base operator components. This thesis makes two primary 
changes to their work. First, it includes the software base maintenance issue. Second, the design is 
based on the multi-level filtering retrieval algorithm. All interactive actions are driven by the 
multi-level filtering retrieval theory. 

1. Basic Requirements 

SBGUI should meet the following basic requirements: 

• Must have high accommodation for a wide range of users from novice to expert 
users. 

• Must provide on-line help. 

• Must be easy to learn and easy to use. 
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« Must provide feedback for every action. 

• Must provide an exit route for each level. 

® Must provide enough menu driven information without on-line help and users 
manual. 

• Must support message display and recovery handling when a mistake is made 

• Must have consistency throughout. 

» Must follow the 5 Principles 1 of Graphical User Interface Design. 

2. Functional Requirements 

The major functionality of the SBGUI should be separated into two parts: User’s prospec¬ 
tus and Database Management Administrator(DBMA)’s Prospectus. Figure 11 illustrates the 
functional architecture analysis of the SBGUI(On-Line help and Exit functionality have been 
implemented but are not shown). From the users’ point of view, the main concern is executing 
queries. Therefore, query is the only function shown in Figure 11 under the users’ prospectus. 
Query functionality can be separated into Manual and Import. Manual means that the user has to 
input the query specification manually. Import identifies the capability of searching the software 
library based on the specification automatically generated from the SDE. When the query specifi¬ 
cation is accepted, it is then sent into the Multi-Level Filtering Retrieval module to search the data 
repository for candidate components. The results are then displayed by the interactive browser, so 
that the user can make a selection decision. The whole process will be iterated until the user gets 
the desired component. In the DBMA’s point of view, software base maintenance work should 
include library creation, selection, deletion, and backup. After the DBMA selects a desired 
library, s/he should be able to append, delete, modify, and browse software components. 


1. The 5 principles for Graphical User Interface design, proposed by Lewis & Riemann, are l.The Cluster¬ 
ing Principle. 2.The Visibility Reflects Usefulness Principle. 3.The Intelligent Consistency Principle. 
4.The Color As a Supplement Principle. 5. The Reduced Clutter Principle[Ref. 36]. 
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Figure 11. Software Base GUI Architecture Analysis 


3. User Requirements 

Although a SBGUI user could be any person from novice to an expert, we made some 
assumptions to narrow the range of user in order to get better utilization of the software base. 
These assumptions are: 

• The user should be familiar with the basic operations of a GUI, such as mouse-driven, 
pull-down menu, drag and play, etc. 


49 















• The user should have some fundamental knowledge of the algebraic specification 
concept and at least one algebraic specification language, like OB J3, etc 

• The user should have a basic understanding of the concepts of reusable component 
retrieval techniques. 

» The user should be familiar with the language which is used for the developing 
applications. 

4. System Requirements 

Since CAPS is an on-going project at the Naval Postgraduate School, the developed 
SBGUI should work under the UNIX based workstation such as SUN, Solbome, or other compat¬ 
ible workstation platforms. It should also run in the X-windows environment. 

B. IMPLEMENTATION DETAIL 

The final implementation includes 55 Ada programs, of which, 34 are codes generated in 
the TAE plus environment, a powerful user interface assistant tool. The remaining 21 programs 
are originally from the multi-level retrieval technique research in [Ref. 31]. This thesis has suc¬ 
cessfully integrated the user interface code for X-terminals and the MLFRT kernel code together 
to create a X-window based interactive software application. The software users manual is in 
Appendix D. The TAE Ada source code is in the Appendix E. 
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VI. CONCLUSION AND FUTURE RESEARCH 


A. CONCLUSION 

This thesis concentrates on the user interface and software database design for supporting 
the multi-level filtering retrieval technique. The user interface described has been implemented, 
yet it has not been integrated into CAPS. A key piece of the software database schema has been 
designed and validated, making follow-on work much easier. Also, a template module, which suc¬ 
cessfully addressed the language mismatch problem, has been designed. This eliminating the larg¬ 
est obstacle in implementing the software base. Figure 12 illustrates the kernels of the software 
base. 


UNIX 


X-WINDOWS 


CAPS 


SOFTWARE BASE 


SWB USER INTERFACE 

A 

SWB Interface Manipulating 
Kernel, Developed under 
VJTAE Plus V5.3 with Ada. y 

^ "\ 

Searching Process Kernel, 

Multi-Level Filtering Retrieval 

Process, Developed with Ada. 


Data Storage Repository Kernel] 
Developed under ONTOS 
^VOODBMS V2.1 with C++. 


Figure 12. Kernels of the Software Database 
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B. FUTURE RESEARCH 


There axe still many research areas following the work in this thesis. They are described as 
follows: 

1. Increase Capability for More Types of Software Components 

Currently the software base system contains only for the data structure components. Such 
a restriction should be relaxed in order to accommodate a variety of types of software components 
in the real world, such as communication components, window-manipulating metaphor compo¬ 
nents, etc. It should go further by covering the software architecture, requirements, documenta¬ 
tion, users manual, etc. 

2. Improve the Data Schema Design 

This thesis accomplished a component schema design which meets the requirements of 
the MLFRT, and developed a working procedure for constructing and manipulating the physical 
data repository. However, a more extensive schema design is still needed, covering areas such as 
profiles, bag_of_profiles, etc. The database schema design should be an independent research 
topic in order to get complete design analysis and well-prepared documentation before going fur¬ 
ther. 

3. Further Improvement for the Maintenance of the Database 

This point is related to the previous concern. After the throughly researched data schema 
design, the implementation detail might be changed. The importance of maintaining the database 
will get more crucial as it grows. Because of this, the functionality of the maintenance work 
should be carefully reconsidered. 

4. Populating the Database 

According the convention of this thesis, there should be four attributes in each software 
component: Ada_Specification, Ada_Body, PSDL, and OBJ3. The Ada code currently exists, so 
the PSDL and OBJ3 need to be produced by some particular transformation process. [Ref. 32] has 
done the transformation for about 100 sets of the BOOCH Ada data structure components. How¬ 
ever, the specification language OBJ3 is not intuitive for most software engineers. Populating the 
database effectively will require further research concerning automatic transformation of all vari¬ 
eties of types of the software components. 
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3. Testing 

An extensive empirical study for the MLFRT is need. Under the situation with many data 
entries, the practical performance is unknown. [Ref. 31] performed a simple study to validate the 
MLFRT theory and compared its performance with the earlier software base research. It showed a 
high recall, high precision, and shorter search time but was based on a small mock up database. 
Further testing for a real consolidated database is needed. 

6. Integrate the Retrieved Components 

The most important target for the software base is to integrate the software component 
into the rapid prototyping system. Previous research about the software component integration 
was to contain all the relative information into a so-called Wrapper[Ref. 30] which serves as the 
bridge between the software base component and the PSDL specification. The MLFRT process 
computes the mapping from query operations and types to the corresponding operations and types 
used in the retrieved component. The integration process should be modified accordingly, to use 
this computed information instead of asking the user to supply it. 
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APPENDIX A - PARTIAL ORDERING AND HASSE DIA¬ 
GRAM 


A. PARTIAL ORDERING 

We often use relations to order some or all of the elements of sets. For instance, we order 
words using the relation containing pairs of words (x, y) where x comes before y in the dictionary. 
We schedule projects using the relation consisting of pairs (x, y) where x and y are tasks in a project 
such that x must be completed before y begins. We order the set of integers using the relation con¬ 
taining the pairs (x, y) where x is less than y. When we add all of the pairs of the form (x, x) to 
these relations, we obtain a relation that is reflexive, anti-symmeric, and transitive. These are prop¬ 
erties that characterize relations used to order the elements of sets using their relative size. 

DEFINITION 1. A relation R on a set S is called a partial ordering or partial order if it 
is reflexive, antisymmetric, and transitive. A set S together with a partial ordering R is called a 
partially ordered set, or poset, and is denoted by (S, R). 

In a poset the notation a < b denotes that (a, b) e R . This notation is used because the 
"less than or equal to” relation is a paradigm for a partial ordering. (Note that the symbol is used 
to denote the relation in any poset, not just the "less than or equals" relation.) The notation 
a < b means that a<b, but a ■£■ b. Also, we say "a is less than b" or "b is greater than a" if 
a<b . 

When a and b are elements of the poset (S, < ), it is not necessary that either a < b or 
b < a. For instance, in (P(Z), c ), {1, 2} is not related to {1,3}, and vice versa, since neither set 

is contained within the other. Similarly, in (Z, 0,2 is not related to 3 and 3 is not related to 2, 
since 2T3 and 3T 2. This leads to the following definition. 

DEFINITION 2. The elements a and b of a poset (& < ) are called comparable if 
either a < b or b < a . When a and b are elements of S such that neither a<b nor b<a, a and b 
are called incomparable. 

B. HASSE DIAGRAMS 

Many edges in the directed graph for a finite poset do not have to be shown since they 
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must be present. For instance, consider the directed graph for the partial ordering 
{ (a, b) | a<b)\ on the set {1, 2, 3, 4}, shown in Figure 13(a). Since this relation is a partial 
ordering, it is reflexive, and its directed graph has loops at all vertices. Consequently, we do not 
have to show these loops since they must be present; in Figure 13(b) loops are not shown. 
Because a partial ordering is transitive, we do not have to show those edges that must be present 
because of transitivity. 



Figure 13. Constructing the Hasse Diagram for ({1,2,3,4}, <=). 

For example, in Figure 13(c) the edges (1, 3), (1, 4), and (2, 4) are not shown since they 
must be present. If we assume that all edges are pointed "upward" (as they are drawn in the fig¬ 
ure), we do not have to show the directions of the edges; Figure 13(c) does not show directions. 

In general, we can represent a partial ordering on a set using the following procedure. 
Start with the directed graph for this relation. Because a partial ordering is reflexive, a loop is 
present at every vertex. Remove these loops. Remove all edges that must be present because of 
the transitivity, since they must be present since a partial ordering is transitive. For instance, if 
(a, b) and (b, c) are in the partial ordering, remove the edge (a, c), since it must be present also. 
Furthermore, if (c, d) is also in the partial ordering, remove the edge(a,d), since is must be 
present also. Finally, arrange each edge so that its initial edge is below its terminal edge(as it is 
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drawn on paper). Remove all the arrows on the directed edges, since all edges point "upward" 
toward their terminal vertex. 

These steps are well-defined, and only a finite number of steps need to be carried out 
for a finite poset. When all the steps have been taken, the resulting diagram contains sufficient 
information to find the partial ordering. This diagram is called a Hasse Diagram, named after the 
20th century German mathematician Helmut Hasse. 
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APPENDIX B - DATABASE DESIGN SOURCE CODE 

(ADA/C++) 


A. Ada Source Code 


-- Component 
-- Author 
-- Date 
-- Language 
-- Compiler 
-- Description 


-- Purpose 
C+ + 

defined 

also 


Component_PKG Spec 
Ruey-Wen (Vincent) Hong 
March 6 , 1996 
Ada 

caps-suns7 SunAda 

The Ada spec mirror program for Ada/C++ Bridge Control 
The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 

This package spec represents an Ada mirrored image for the 

class "Component". It encpsolates all operations and types 

over Component in a way making an Abstract Data Type of it.It 

defines the interface between Ada operations defined over 
Component and the coresponding C++ operations. 

Procedure names are given followed by their interface 
(C in all cases) and interface names. The a.Id pre-link 
link_with pragmas are given in the file link_with_pragmas.a 


Refer to this PKG body for some other detail regarding the 
Conventions used for subprograms names 


The method used to interface Ada and C++ code is as follow: 


1- compile your C++ code you like to interface Ada to using a 
C++ compiler 

2- use the Unix nm command to get the symbolic name of the 
subroutine you like to link your Ada to using 
"pragma_interface" and pragme__interface_name. Choose the 
symbolic name which is preceeded by "T". Use the symbolic 
name in the pragma interface_name and the C++ subroutine 
name in the pragma interface. 

3- use link_with_pragma to pre-link with the C++ object code 
in each of the files containing that code (.o) files. These 
link with pragmas are included in the file 

link with pragmas.a for this experimental application 
template 


-- Example ; Suppose you have an Ada function called ada__new_Component and 
you have a C++ function that implements the Ada function called 
c_new__Component and the object code for the C++ function is 
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in the file Component_inteface.o and now you want to 

interface the 

Ada function to the coresponding C++ function : 


(.o) 


1- Assuming Your C++ code is already compiled and you have the 
file(s). 


2 use nm: 

>nm -ao Component_inteface.o I grep "c_new_Component" 

- The output will be a punch of names as follows: 

-- Component_interface.o:000006c8 T _c_new_Component_FPciT2 

-- Component_interface.o:00000000 - 00 0000 LSYM c_new_Component FPciT2 :ZtF 

-- Component„interface.o:000006c8 - 00 001c FUN 

c_new_Component_FPciT2:F(0,1 

- Choose the first one (preceeded by "T"): 

"_c_new__Component_FPciT2" as the symbolic name. 

Note : for details about why this symbolic name look this 
strange, refer to a paper by Bjarne Stroustrup 
titled "Type-safe Linkage for C++"... by the way C++ 
is one of his contributions. 


- Now in your ada code, all you need is the following 

: in c_string; 
in integer ; 
in integer ) 

return component; 

pragma interface(C,c_new_component); — C++ subroutine name 

pragma interface_name(c_new_component, 
c__new_component_FPciT2 ") ; 

- This way you got an Ada function called ada_new_component 
so when you say somewhere in you Ada code: 
ada_new_component (some_name, some_integer, another_integer) 
you are actually calling the coresponding C++ function: 
c_new_component 

3- Now for step #3 you have 3 ways to link with the C++ relevant 
object files : 

- use withn (not recommended by Ada documentations) 

- supply the C++ („o) files in the command 
line as opetions to a.Id , this is doable and 
can be included in the Makefile 


Function ada_new_component(name 

level 

status 


- The way I'm using is to use link_with pragma to 
link to the desired (.o) file 

ex: pragma link_with ("Component__interf ace. o") ; 

I've included all such pragma link_with in the file 
link_with_pragmas.a and then my top level driver (interface) 
includes a "with link_with_pragmas_PKG" 
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with a_strings; 
use a_strings; 

with exceptIon_interface_PKG; 
use except ion__interface_PKG; 

package Component_PKG is 

type Component__record is private; 


type Component is access Component_record; 


Function new_Component(name 

psdl 

ada_spec 

ada_body 

obj 

Function get_Component(name 

Function GetComponentName(d 

procedure SetComponentName(Name 

d 


: in a_string; 

: in a_string; 

: in a_string; 

: in a_string; 

: in a_string ) return Component; 

: in a_string) return Component; 

: in Component) return a_string; 

: in a_string; 

: in Component); 


procedure PutComponent(d : in Component ); 


-- Component ITERATOR 

-- The following operations lumps an iterator suitable for looping through 
-- instances of the Component class and returning each of these instances 
-- The following syntax of the Instance Iterator, although Is given for 
-- the Component Type, it is general enough to apply to any other TYPE under 
— conditition the Type MUST be classified into the DB (using Ontos CLASSIFY 
-- utility) with the +X switch so that Ontos will maintain an aggregate of all 
-- instance of that TYPE, in this case the Type is called "has an EXTENSION" 

. . refer to ONTOS DB Tools and Utilities Guide Ch3. 

-- WATCH OUT though that using +X swith has a perfomance degradation penality, 
-- it slows down the application. 

-- The syntax of using this iterator is as follows 

Component_Iter := CREATE_ITERATOR ( type_name ); 

While Has_More_Elements(Component_Iter) loop 
Component__Object := Get_Next_Element (Component__Iter) 
do something with Component_Object 


end loop 
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You can also issue: 


same 


RESET_ITERATOR(Component_Iter) : to re-iterate 
DELETE_ITERATOR (Component__Iter) : to deallocate memory 

Note also that Component_Iter and Component_Object are of the 
type: Component of this PKG 


Function Create__Instance_Iterator (type__name ; in a__string ) return 
Component; 

Function Get_Next_Element(d : in Component ) return Component; 
procedure Reset__Iterator (d : in Component; type__name : in a_string ); 
procedure Destroy_Iterator(d : in Component ); 

Function Has_More„Elements(d : in Component ) return BOOLEAN; 


-- EXCEPTIONS 

““ The 2 Exceptions "no_such_object" and "object_already_exists" applies to 
-- all persistent types, that is why they are included in a separate PKG 
-- "exception_interface_PKG", so they can be visible to all types. 

-- Renaming both here is a matter of readability to know that we are 
-- talking about Component Objects. 

no_such_Component : exception renames no_such_object; 

Component__already_exists : exception renames object_already^exists; 


private 

type Component_record is record 
null; 

end record; 
end Component_PKG; 


-- Component 
-- Author 
-- Date 
-- Language 
-- Compiler 


Component_PKG Spec 
Ruey-Wen (Vincent) Hong 
March 6, 1996 
Ada 

caps-suns7 SunAda 
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-- Description : The Ada mirror program for Ada/C++ Bridge Control 

Purpose : This package Body represents an Ada mirrored image for the 

C+ + 


class "Component". It encpsolates all operations and types 

defined 

over Component in a way making an abstract DT of it.It also 
defines the interface between Ada operations defined over 
Component and the coresponding C++ operations. 

Procedure names are given followed by their interface 
(C in all cases) and interface name. The a.Id pre-link 
link_with pragmas are also given. 


Naming Conventions used for subprograms names are as follows: 


subprograms 


1. Subprograms interfacing to coresponding C++ subprograms 
have the same name as the the coresponding C++ 

and these names are identified by the prefix "ada_c_" 

2. The Ada subprograms implementing the functionality of the 
subprograms in 1. and do not include the interface detail 
like pragmas and c_strings are given the same name as the 
coresponding subprograms in 1. above without the prfix. 


Refer to this PKG Spec for some other detail regarding the way 
I used to interface Ada to a C++ code. 


with a_strings; 
use a_strings; 

with c_strings; 
use c_strings; 

with db_utility__PKG; 
use db_utility__PKG; 

with text_io; 
use text_io; 

with exception_interface_PKG; 
use exception_interface_PKG; 

package body Component_PKG is 


Function ada_c_new_Component(name 

psdl 

ada_spec 

ada_body 

obj 


: in c_string; 

: in c_string; 

: in c_string; 

: in c_string; 

: in c__string ) return Component; 


pragma interface (C, ada_c__new_Component) ; 
pragma interface_name(ada_c_new_Component, 
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" ada c new Component FPciT2") ; 


Function new_Component (name : in a_string; 

psdl : in a_string; 

ada_spec : in a__string; 
ada_body : in a_string; 

obj : in a_string ) return Component is 

C_name : c_string := to_c (name) ; 

C__psdl : c_string := to_c(psdl); 

C_ada_spec : c_string := to_c (ada__spec) ; 

C_ada_body : c_string := to_c (ada__body) ; 

C_obj : c__string := to_c(obj); 

d : Component; 

begin 

d : = ada_c_new_Component (C_name, C_psdl, C_ada_spec / C_ada_body, 

C_ob j ) ; 

case get_exception_code is 

when normal_code => 

null; 

when object_already_exists_code = > 

raise Component_already_exists; 
when others => 

raise ONTOS_Failure; 

end case; 
return d; 

end new_Component; 


Function ada_c_find_Component(name : in c_string) return Component; 

pragma interface(C,ada_c_find_Component); 
pragma interf ace_name (ada_c_f ind_Component, 

"_ada_c__f ind_Component_FPc") ; 


Function get_Component (name : in a_string) return Component is 

C_name : c_string := to_c(name); 

d : Component; 

begin 

d := ada_c_f ind_Component (C_name); 
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case get_exception__code is 
when normal_code 
null; 

when no_such_object_code 

raise no_such_Component; 
when others 

raise ONTOS_Failure; 

end case; 


return d; 

end get_Component; 


Function a da_c_Get ComponentName (d ; in Component) return c_string; 

pragma int erf ace (C, ada_c_Get ComponentName) ; 
pragma interf ace__name (ada_c_GetComponentName, 

"_ada_c_Get Component Name_FP6Component") ; 


Function GetComponentName(d : in Component) return a_string is 
a_name : a_string : = to_a (ada_c_GetComponentName (d) ) ; 

begin 


case get_exception_code is 
when normal_code 
null; 

when no_such_obj ect_code 

raise no_such__Component; 
when others 

raise ONTOS_Failure; 


end case; 


= > 


= > 


= > 


return a_name; 


end Get ComponentName; 


procedure ada_c_SetComponentName( 

Name : in c__string; 

d : in Component); 

pragma interf ace (C, ada_c_Set ComponentName) ; 
pragma interface_name (ada_c_SetComponentName r 

"__ada_c_SetComponentName_FPcP 6Component") ; 
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procedure SetComponentName(Name ; in a_string; 

d : in Component ) is 

C_name : c_string := to__c (Name) ; 

begin 

ada_c_Set ComponentName (C_name, d) ; 

case get_exception_code is 

when norma l_c ode => 

nul 1; 

when no_such_ob j ect__code -> 

raise no_such_Component; 
when others => 

raise ONTOS_Failure; 

end case; 

end SetComponentName; 


procedure PutComponent(d : in Component) is 

-- The following 2 instantiations are for outputing 

-- expertise_level and status values respectively 

begin 

transaction_start; 

PUT ("Component Name is "); 

PUT (GetComponentName (d) . s) ; 

NEWSLINE; 

transaction_coramit; 
end PutComponent; 


-- Component ITERATOR 

Function ada_c__Create_Instance_Iterator(type_name : in c_string) 

return Component; 

pragma interface(C,ada_c_Create_Instance_Iterator); 
pragma interface__name(ada_c_Create_Instance_Iterator / 

"_ada_c_Create__Instance_Iterator_FPc") ; 


Function Create_Instance_Iterator(type_name : in a_string) 


return 
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Component is 


begin 


ada_c_Create_Instance__Iterator (to_c (type_name)) ; 


return 


end Create_Instance_Iterator; 


Function ada_c_Get_Next_Element (d : in Component) return Component; 

pragma interface (C, ada__c_Get_Next_Element) ; 
pragma interface_name (ada_c_Get_Next_Element, 

"_ada_c_Get_Next_Element_FP16InstanceIterator") ; 


Function Get_Next_Element (d : in Component) return Component is 


begin 


ada__c__Get_Next_Element (d) ; 


return 


end Get_Next_Element; 


procedure ada_c_JReset_Iterator (d : in Component; type_name : in c_string); 

pragma interface(C,ada_c_Reset_Iterator); 
pragma interface_name(ada_c_Reset__Iterator, 

"_ada_c_Reset_Iterator_FP16InstanceIteratorPc"); 


procedure Reset_Iterator(d : in Component; type_name : in a_string) is 


begin 


to_c (type_name) ) ; 


ada_c_Reset_Iterator(d r 


end Reset_Iterator; 


procedure ada_c_Destroy_Iterator(d : in Component); 

pragma interface(C 7 ada_c_Destroy_Iterator); 
pragma interface_name( ada_c_Destroy_Iterator, 
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"__ada__c_Destroy_Iterator_FP16InstanceIterator"); 


procedure Destroy_Iterator(d : in Component) is 

begin 


ada_c_Des t r oy__I t e rat o r (d) 


end Destroy_Iterator; 


Function ada__c_Has_More_Elements(d : in Component) return BOOLEAN; 

pragma interface(C,ada_c_Has_More_Elements); 
pragma interf ace_name (ada_c__Has_More_Elements, 

"_ada_c_Has_More_Elements_FP16InstanceIterator") ; 

Function Has_More_Elements(d : in Component) return BOOLEAN is 


begin 


ada_c_Has_More_Elaments (d) ; 


return 


end Has_More__Elements ; 


end Component__PKG; 


-- Component 
-- Author 
-- Date 
-- Language 
Compiler 


Component__ops. a 
Ruey-Wen (Vincent) Hong 
March 6, 1996 
Ada 

caps-suns7 SunAda 


-- Description : The Ada mirror program for Ada/C++ Bridge Control 

The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 


This module has originally appeared in ECS under the same 
name (Component_ops.a) and was coded completely in C++ 

I translated it into Ada to examine the possibilty of 
directly using C++ classes from inside ADA and thus 
testing the new approach. It should be noted that without 
the new approach of interfacing Ada to C++, this module 
could not be coded in Ada 

This Ada module provide the same functionality that is 
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currently provided by the coresponding C++ module for 
the Component pool in the ECS. 

I did not try to change any logic or implementation here 
to test the new approach. 

Notice that some of the code here is redundant and is not 
needed especialy the checks to see if the Component 

already 

exists in the DB (or the parallel check to see if the 
Component does not exists in the DB) before performing 

some 

operations. The lower level operations defined in the 
Component and db_utility packages guards aginst the 
occurences of such conditions by raising the proper 
exception. 


with link_with_pragmas_PKG; 
use link_with_pragmas_PKG; 

with Component_PKG; 
use Component_PKG; 

with dbjutilityJPKG; 
use db_utillty_PKG; 

with except ion__int erf ace_PKG; 
use exception_interface_PKG; 

with c^strings; 
use c__strings; 

with a_strings; 
use a_strings; 

with u_env; 
use u_env; 

with text__io; 
use text_io; 


package Component_Ops_PKG is 


package int_io is new integer_io(integer); 
use int__io; 


procedure create__Component 


(name 

: in 

a_string; 

psdl 

: in 

a_string? 

ada_spec 

: in 

a_string; 

ada_body 

: in 

a_string; 

obj 

: in 

a_strlng ); 


73 






procedure write__Components__to_fi 1 e ; 

: in a_string; 

: in a_string; 

: in a_string; 

: in a_j3tring; 
s in a_string ); 


procedure add_Component (name 

psdl 

ada_spec 

ada_Jbody 

obj 


procedure delete_Component (name : in a_string); 
procedure show_Component (name : in a_string) ; 
procedure show_all_Components; 
end Component_Ops_PKG; 


package body Component_Ops_PKG is 


-- This procedure iterates through the Component instances (using the new 
-- iterator) and write Component info into a file called: 

-- "/.caps/temp/ddbdisplay" to be used later by TAE to display this info 
-- in the Component panel. Notice the use of the new ITERATOR here. 


procedure write_Components_to_file is 

loca1_Component : Component; 

Component__iterator : Component; 

user__directory: a__string : = 

copy(c_strings.to_a(u_env.getenv(c_strings.to_c("HOME"))) & 
a_strings.to_a("/.caps/temp/ddbdisplay")) ; 

ECS_output : file_type; 

ECS__output_f ile_name : a_strings.a_string := user__directory; 
begin 


transaction_start; 

open(ECS__output, MODE => OtTT_FXLE, NAME => ECS_output_f ile_name . s) ; 

Component_iterator := Create_Instance_Iterator(to_a("Component")) ; 

while ( Has_More__Elements(Component_iterator)) loop 

local_Component := Get_Next_Element(Component_iterator); 

put(ECS__output,GetComponentName(local_Component).s); 

NEWSLINE(ECS_output); 
end loop; 

close(ECS_output); 
transaction_commit; 
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end write_Components_to_file; 


procedure create_Component 


(name 

: in 

a__string; 

psdl 

: in 

a_string; 

ada_spec 

: in 

a_string; 

ada_body 

: in 

a_string; 

obj 

: in 

a_string 


is 


local_Component : Component; 
begin 

local_Component := new_Component(name, psdl, ada_spec / ada_body, obj); 
end create_Component; 


-- Add Component to the DB 

-- Note that when adding a new Component to the DB his status is free by- 
default 

-- that is the reason we do not need status as a parameter. 


procedure add_Component 


name 

: in 

a__string; 

psdl 

: in 

a_string; 

ada_spec 

: in 

a_string; 

ada_body 

: in 

a_string; 

obj 

: in 

a_string ) is 


local_Component : Component; 


begin 


transaction_start; 

local_Component := get_Component (name) ; 
if local_Component /= null then 

PUT__LINE ("Component already exists in the DB"); 
null; 
else 

local_Component:= new_Component(name, psdl, ada_spec, ada_body, ob j ) ; 
save_to_db(local_Component); 
end if ; 

t rans ac tion_commit; 


end add__Component; 


procedure delete_Component (name : in a_string) is 
local_Component : Component; 
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begin 


transactions tart; 

local_Component : = getSomponent (name) ; 
if local_Component = null then 

PUT_LINE("Component does not exist in the DB"); 
null; 
else 

delete_f rom_db (localSomponent) ; 
end if ; 

t r ans ac t i on__c ommi t; 
end deleteSomponent; 


procedure show_C°mponent(name: in astring) is 
local_Component : Component; 
begin 

transactions tart; 

local_Copponent •- get_Component (name); 
if local_Component = null then 

PUT_L1NE("Component does not exist in the DB") ; 
null; 
else 

Put Component (locals omponent); 
end if ; 

t rans ac tion_commit; 
end show_Component; 


procedure show_all_Components is 

localSomponent : Component; 

Component_iterator : Component; 

begin 

transactionstart ; 

Component_iterator Create_Instance_Iterator(to_a("Component")) ; 

while ( Has_More_Elaments(Componentsterator)) loop 
localSomponent : = Get_Next_E lement (Components te rat or) ; 
if localSomponent = null then 

PUT_L1NE ("Component does not exist in the DB") ; 
null; 
else 

PutComponent (localS oni Po nen t); 
end if ; 

end loop; 

t rans ac tion_c ommi t; 
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end show__al^Components; 


end Component_Ops_PKG; 


-- Component 
-- Author 
-- Date 
-- Language 
-- Compiler 
-- Description 


-- Purpose 
of 


Db_Utility_PKG Spec 
Huey-Wen (Vincent) Hong 
March 6, 1996 
Ada 

caps-suns7 SunAda 

The Ada mirror program for Ada/C++ Bridge Control 

The Ada/C++ Bridge Control Technique is originally created 

by Osman Ibrahim. 

This package spec represents an Ada mirrored image for some 

Ontos Free functions that access and manipulate objects and 
other DB operations. These operations needs to be extended in 
the future in the same way as the need arises. 


with a_strings; 
use a__strings; 

with Component_PKG; 
use Component_PKG; 

package db_utility_PKG is 

-- General ONTOS operations 

procedure open_database(ddb : 

procedure c1ose_database{ddb 

procedure transaction_start; 

procedure transaction_commit; 

procedure save_to_db(d : in 

procedure delete_from_db(d : 


in a_string); 

: In a_string); 


Component); 
in Component) ; 


end db_utility_PKG; 
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-- Component : Db_Utility_PKG Body 
-- Author : Ruey-Wen (Vincent) Hong 

-- Date : March 6, 1996 

-- Language : Ada 

-- Compiler : caps-suns7 SunAda 

-- Description : The Ada mirror program for Ada/C++ Bridge Control 

The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 

-- Purpose: This package body represents an Ada mirrored image for some of 

Ontos Free functions that access and manipulate objects and 
other DB operations. These operations needs to be extended in 

the future in the same 


way as the need arises. 

Procedure names are given followed by their interface 
(C in all cases) and interface name. 


Refer to the Component_PKG body for some other detail regarding 
the Conventions used for subprograms names 


Refer to the Component PKG Spec for some other detail regarding 
the way I used to interface Ada to a C++ code. 

Refer to the file exception__interface.h for the meaning of each 
exceptiuons used here. 


with a_strings; 
use a_strings; 

with c_strings; 
use c_strings; 

with exception_interface_PKG; 
use exception_interface_PKG; 


with Component^ KG; -- needed for type "Component" to be visible here which 
I do 


functions 


--- not think it is right, it is needed because some 


-- have "Component" 


as an input parameter..refer to the 


note 


below. 

use Component_PKG; 

package body db_utility_PKG is 


procedure ada_c_open_database(ddb : in c_string) ; 
pragma interface(C,ada_c_open_database); 

pragma interf ace__name (ada_c_open__database, "_ada_c_open_dat.abase_FPc") ; 
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procedure open_database(ddb : in a_string) is 

begin 


ada_c_open_database (to__c (ddb)) ; 


case get_exception_code is 
when normal_code 
null; 

when db_open_failed__code 

raise db_open_failed; 
when others 

raise Ontos_failure; 
end case; 


=> 


= > 


= > 


end open_database; 


procedure ada_c_close_database(ddb : in c_string); 

pragma interface(C,ada_c_close_database); 
pragma interf ace_name (ada_c_close_database, 

" ada c close database FPc"); 


procedure c1ose_database(ddb : in a_string) is 
begin 

ada_c__close_database (to_c (ddb)) ; 

> 

> 

> 

end close_database; 


case get_exception_code is 
when normal_code 
null; 

when db__not_open_code 

raise db_not_open; 
when others 

raise Ontos_failure; 

end case; 


procedure ada_c_transaction_start; 

pragma interface(C,ada_c_transaction_start); 
pragma interface_name(ada_c_transaction_start, 

"_ada_c_transaction_start_Fv"); 
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procedure transaction_start is 

begin 

ada_c_transact ion__start; 

case get__exception__code is 
when normal_code 
null; 

when others 

raise Ontos_failure; 

end case; 

end transaction__start; 


procedure ada_c_transaction_commit; 

pragma interf ace (C, ada_c_transaction_commit) ; 
pragma interface_name(ada_c_transaction_commit, 

"_ada_c_transaction_commit_Fv") ; 

procedure transact ion_commit is 

begin 

ada_c__t rans ac t i on„c ommi t; 

case get_exception_code is 
when normal_code => 

null; 

when no_active_transaction_code => 

raise no_active__t rans act ion; 
when others => 

raise Ontos_failure; 
end case; 

end transaction_coinmit; 


-- I think the following 2 operations should be moved to the Component ADT and 

-- renamed "save_Component_to_db" and "delete_Component_f rom_db" respectively 

-- because they depend on the type of object passed and we can not make the 
-- input type generic ... can we????? 


procedure ada_c_save_to_db(d : in Component); 



80 







pragma interf ace (C, ada_c_save_to__db) ; 
pragma interface_name (ada__c_save_to_db, 
"__ada_c_s ave_t o_db_FP 6 Component" ); 


procedure save_to_db(d : in Component) is 

begin 

ada_c__s ave_t o_db (d) ; 

case get_exception_code is 

when normal__code => 

null; 

when object_already_exists_code => 
raise object_already_exists; 

when others => 

raise Ontos_failure; 

end case; 


end save_to_db; 


procedure ada_c_delete_from_db(d : in Component); 

pragma interface(C,ada_c_delete_from_db); 
pragma interf ace_name (ada_c_delete__f rom_db, 

"_ada_c__delete_f rom_db_FP 6Component") ; 


procedure delete_from_db(d : in Component) is 

begin 

ada_c_de 1 ete_f rom__db (d) ; 

case get_exception_code is 

when normal_code => 

null; 

when no_such__object_code => 

raise no_such_object; 

when others => 

raise Ontos_failure; 

end case; 


end de1ete_f rom_db; 
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end db_utility_PKG; 


-- Component 
-- Author 
-- Date 
-- Language 
— Compiler 
-- Description 


-- Purpose: 


: except ion__PKG Spec 
: Ruey-Wen (Vincent) Hong 
: March 6 , 1996 
: Ada 

: caps-suns7 SunAda 

: The Ada spec mirror program for Ada/C++ Bridge Control 
The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 

This package spec represents an Ada mirrored image for the 
coresponding C++ unit "except ion__int erf ace". It is made in a 
separate PKG because most of these exceptions apply to all 
types. In the future it will be easy to use those exceptions 
as is or renamed to suit a specific type. 


One function from the coresponding C++ unit "exception_ 
interface" is missing intentionally here which is : 
"set_exception__code()" because it is not needed to be visible 
in the Ada side. 

Refer to the unit "exception_interface.h" for the meaning 
of each of the exceptions defined here. 


package exception_interface_PKG is 


EXCEPTIONS 


Ontos__f allure 

: exception; 

db_open__f ailed 

: exception; 

db__not_open 

: exception; 

no__act ive_t r ansact Ion 

: exception; 

no_s uch_object 

s exception; 

ob j e ct _a1ready_exis t s 

: exception; 


-- Exception codes captured and returned to ada from ONTOS 
— Refer to the comment in the PKG body. 

type exception_code is (normal_code. 
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obj ect_already _exi st s_code, 
no_s uc h_ob j e c t _c ode, 
db__°P e n_f a 11 ed_c ode, 
db_not_open_code, 
no_active_transaction_code, 
Ontos_failure_code ) ; 


Function get_exception_code return exception_code; 


end exception_interface_PKG; 


-- Component 
-- Author 
-- Date 
-- Language 
-- Compiler 
-- Description 


-- Purpose: 


: exception_PKG Body 
: Ruey-Wen (Vincent) Hong 
: March 6, 1996 
: Ada 

: caps-suns7 SunAda 

: The Ada spec mirror program for Ada/C++ Bridge Control 
The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 

This package body represents an Ada mirrored image for the 
coresponding C++ unit "exception_interface". It is made in a 
separate PKG because most of these exceptions apply to all 
types. In the future it will be easy to use those exceptions 
as is or renamed to suit a specific type. 


One function from the coresponding C++ unit "exception_ 
interface" is missing intentionally here which is : 
"set_exception_code()" because it is not needed to be visible 
in the Ada side. 


Refer to the unit "exception_interface.h" for the meaning 
of each of the exceptions defined here. 


with text__io; 
use text_io; 

package body except ion_interface__PKG is 


-- This function was introduced to allow ada to capture an exception raised 
-- inside ONTOS so that Ada can handle it in a way taht will not cause 
-- the program to abort because of a user error; e.g a misspelled DB name. 
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Function ada_c_get_exception_code return integer; 

pragma interface(C,ada_c_get_exception_code); 
pragma interf ace__name (ada_c_get_except ion_code, 

"_ada_c_get_exception_code_Fv") ; 


Function get„_exception__code return exception__code is 


begin 

case ada_c_get__exception_code is 


when exception_code'POS(normal_code) => 

return normal__code; 

when exception_code 'POS (no__such_object_code) => 

return no_such_ob ject_code; 

when exception_code'POS(object_already_exists_code) => 
return object_already_exists__code; 

when exception_code'POS(db_open_failed_code) => 

return db_open_failed_code; 

when except ion_code' POS (db_not_open__code) = > 

return object_already_exists_code; 

when exception_code 'POS (no_active__transaction_code) => 

return no_active_transaction_code; 

when others => 

return Ontos_failure_code; 


end case; 

end get_exception__code; 


end except ion_int erf ace__PKG; 


-- Component 
-- Author 
-- Date 
-- Language 
-- Compiler 
-- Description 


link with pragmas PKG Spec 
Ruey-Wen (Vincent) Hong 
March 6, 199 6 
Ada 

caps-suns7 SunAda 

The Ada spec mirror program for Ada/C++ Bridge Control 
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Purpose: 


The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 

This package the pragma linkjwith for the a. Id pre-link to the 
the relevant C++ components given by thier object files. 

It also contains pragma link_with for the a.Id pre-link to the 
procedure cplusplus„init which is required at TAE level to make 
TAE, Ada, C++, and ONTOS behave friendlt together !!!!!! 


For linking with a C++ (generally foreign lang.) object file, 
there are 3 ways to do that : 

- use withn (not recommended by Ada 

documentations) 


- supply the C++ (.o) files in the command 
line as opetions to a.Id , this is doable and 

can be included in the Makefile 

- The way I'm using is to use link_with pragma to 

link to the desired (.o) file 

Refer to the files deslgner_s.a and designer_b.a for other 
relevant details of how interfacing Ada to C++ 


package link_with_pragmas_PKG is 

-- CAPS C++ operation to initialize static constructors 

procedure cplusplus_init; 

pragma interface(C,cplusplus_init); 

pragma interface_name(cplusplus_init, "_jmain"); 


-- Main C++ interface object module, required for initialization of C++ 
-- static constructors. 

pragma link_with("C++_initialize.o"); 

pragma 1ink_with("component.o"); 

pragma link_with("component_interface.o"); 

pragma link_with("db_utility.o"); 

pragma link_with("exception_interface.o"); 


end link_jwith_pragmas_PKG; 


B. C++ Source Code 
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/*- 

: Class Component (.h) 

: component.h 

: Documented Feb 29, 1996. 

: Ruey-Wen (Vincent) Hong 
: Sun C++ and ONTOS (2.1) 

: The Ada/C++ Bridge Control Technique is originally created 
: by Osman Ibrahim. 

: The header for the Component Class that implement 
: the Software Component ADT in C++ 


*/ 


#include <Object.h> 

class Component ; public Object 

{ 

private: 

char* priv_psdl; // The component's psdl spec 

char* priv_ada_spec; // The component's ada spec 

char* priv_ada_body; // The component's ada body 

char* priv_obj; // The component's OBJ code 

public; 

// Constructors 

Component(char* name=(char*)0, 
char* psdl=(char*)0, 
char* ada_s oec=(char*)0, 
char* ada_body=(char*)0, 
char* obj=(char*)0 ); 

Component (APL*); // (Ontos required Constructor) 

// Ontos required member function) 

Type *getDirectType(); 

// Accessors 

char* GetComponentPsdl() ; 

void SetComponentPsdl(char* psdl); 

>; 


/*-~--- 

-- Unit : class Component implementation (.cxx) 

--File : Componentc.cxx 

-- Date : Documented Feb 29, 1996. 

-- Author : Ruey-Wen (Vincent) Hong 


-- Unit 
-- File 
-- Date 
-- Author 
-- Systems 
-- Description 
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-- Systems : Sun C++ and ONTOS (2.1) 

-- Description : The Ada/C++ Bridge Control Technique is originally created 

: by Osman Ibrahim. 

: Provides the implementation (definition) for the Component 
Class that implements the Component ADT in C++ 


*/ 

ftinclude "component.h" 

#include <Directory.h> 

// - 

// constructors 

//- 

/*- 

*/ 

Component::Component(APL *theAPL) : Object(theAPL) 

{ 

} 

/* - 

*/ 

Component::Component(char* name, 

char* psdl, 

char* ada_spec, 

char* ada_body, 

char* obj ): Object(name) 


InitDirectType((Type *)OC_lookup("Component")) ; 

priv_psdl = psdl; 

priv_ada_spec = ada_spec; 
priv_ada_body = ada_body; 
priv_obj = obj; 


//- 

// accessors 

//--- 

Type *Component::getDirectType() 

{ 

return (Type*)OC_lookup("Component"); 

} 


/* —-—-— — 

*/ 

void Component::SetComponentPsdl(char* psdl) 

{ 

priv_psdl = psdl; 

} 

/* - -- 
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*/ 


char* Component::GetComponentPsdl() 

{ 

return priv_psdl; 

} 

/* ---- 

*/ 


/* - 

-- Unit 
-- File 
-- Date 
-- Author 
-- Systems 
-- Description 


that 


Component__Interface ( .h) 
component_interface.h 
Documented Feb 29, 1996. 

Ruey-Wen (Vincent) Hong 
Sun C++ and ONTOS (2.1) 

The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 

The sole reason for this unit is to allow ADA to Create, 
Access, and manipulate objects (instances) of the 
"Component Class". We tried to do that directly without 

second level interface, but we did not succeed. 

Comments about how ada can communicate with code written 
in C++ can be found in some of the Ada files in this Dir. 


*/ 


#include <Database.h> 
#include <Directory,h> 
#include "component.h" 
#include <Type.h> 


// The following operation is just for making ada able to call the 
constructors 

// of the Component Class. 


Component* 


ada_c_new_c omponent( 


char* Myname, 
char* MyPsdl, 
char* MyAdaSpec, 
char* MyAdaBody, 
char* MyObj ); 


// The following operation is to allow Ada to lookup and retrieve an instance 
// of the Component Class 


Component * ada__c_f ind_component (char*) ; 

// The following Operations each coresponds to a member function of the 

Component 

// Class. 


char* ada_c_GetComponentName(Component* ada_ptr); 

void ada_c_SetComponentName(char* name. Component* ada_ptr); 
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// 


component ITERATOR 


// The following operations lumps an Iterator suitable for looping through 
// instances of the Component class and returning each of these Instances 
// The following syntax of the Instance Iterator, although is given for 
// the Component Type, it is general enough to apply to any other TYPE under 
// conditition the Type MUST be classified into the DB (using Ontos CLASSIFY 
// utility) with the +X switch so that Ontos will maintain an aggregate of all 
// instance of that TYPE, in this case the Type is called "has an EXTENSION" 

// . . refer to ONTOS DB Tools and Utilities Guide Ch3. 

// WATCH OUT though that using +X swith has a perfomance degredation penality, 
// it slows down the application. 


Instancelterator* 

Component* 

void 

void 

OC_Boolean 


ada_c_Create_Instance_Iterator(char* type_name); 

ada_c_Get_Next_Element(Instancelterator* it) ; 
ada_c_Reset_Iterator(Instancelterator* it, char* 
ada_c_Destroy_Iterator(Instancelterator* It); 
ada_c_Has_More_Elements(Instancelterator* it); 


type_name) ; 


/* 


-- Unit 
-- File 
-- Date 
-- Author 
-- Systems 
-- Description 


that 


The implementation for Component__interface (.cxx) 
Component_Interface.cxx 
Documented Feb 29, 1996. 

Ruey-Wen (Vincent) Hong 
Sun C++ and ONTOS (2.1) 

The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 

The sole reason for this unit is to allow ADA to Create, 
Access, and manipulate objects (instances) of the 
"Component Class". We tried to do that directly without 

second level interface, but we did not succeed. 

Comments about how ada can communicate with code written 
C++ can be found in some of the Ada files in this Dir. 


*/ 

#include "component_interface.h" 
#include <Exception.h> 

#include "exception_interface.h" 


// Note : We tried to place all EXCEPTION objects in one header file 
(exception 

// _interface.h) and be used whereever needed, but this resulted in an error 
// came from the loader saying they are multiply defined, the same error came 
// out when even we placed them global in the same file, so we had to put each 
// in the proper function where the Exception is expected. 

= = = = = = = = = = = = = = = = = = = = = = = = 
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// The following operation is just for making ada able to call the 
constructors 


Component* ada_c_new_Component( char* Myname, 

char* MyPsdl, 
char* MyAdaSpec, 
char* MyAdaBody, 
char* MyObj ) 

{ 


ExceptionHandler object_already__exists("NameInUse"); 

if (obj ect_already_exists.Occurs()) 

ada__c_set_exception__code (object_already_exists_code) ; 


else 


{ 

ada_c__set„exception_code ( normal_code); 

Component* aComponent = new Component(Myname, 
MyPsdl, 

MyAdaSpec, 

MyAdaBody, 


MyObj); 


} 


return aComponent; 

} 


// 


Component * ada_c_find_Component(char* Component_name) 


ExceptionHandler no_such_object ("NameNotFound"); 

if (no_such_obj ect.Occurs()) 

ada_c_set__exception_code (no_such_ob j ect_code) ; 

else 

{ 

ada_c_set_exception_code( normal_code); 

Component *aComponent = 

(Component*) OC_lookup (Component_name) ; 

return aComponent; 

} 


//=================================::=:=;==:========:===== 

char* ada_c_Ge t ComponeatName (Component * ada_jptr) 

{ 

ExceptionHandler no_such_object ("NameNotFound"); 
if (no_such_obj ect.Occurs()) 
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else 

{ 


ada_c__set_exception_code (no_such_object_code) ; 


ada_c_set_exception_code ( normal_code) ; 

return ada_ptr->Name () ; 

} 

} 

// = = = = === == == = = === = = = = ==== = = = = = = = ==== = == = = == = = ==== = = = = =: = = === = =: == = = = = = = = =:== = 

void ada_c__SetCoinponentNaine(char* name. Component* ada_ptr) 

{ 

ExceptionHandler no_such_object ("NameNotFound"); 

if (no_such__obj ect.Occurs()) 

ada_c_set_exception_code (no_such__ob ject_code) ; 

else 

{ 

ada_c_set_exception_code ( normal_code) ; 

ada_pt r- >Name (name) ; 

} 

} 

// = = = = = = = = == = = = = = = = = = = = = = = = = = = = = = - = = = = = = = = =:- = = = = =: = = = = = = = = = = = = = = = = = -==== = = = = 

//-Component ITERATOR--- 

Instancelterator* ada_c_Create_Instance_Iterator (char* type_name) 

{ 

Instancelterator* it = new Instancelterator((Type*) OC_lookup (type_name) ) 
return it; 

} 

Component* ada_c_Get_Next_Element (Instancelterator* it) 

{ 

Component* next_Component = (Component*) (Entity*)it->operator()(); 
return next_Component; 

} 

void ada_c_Reset_Iterator(Instancelterator* it, char* type_name) 

{ 

it->Reset((Type*) OC_lookup(type_name)); 

} 

void ada_c_Destroy_Iterator(Instancelterator* it) 

{ 

it->Destroy(); 

> 

OC_Boolean ada_c_JHas_More_Elements (Instancelterator* it) 

{ 
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return it->moreData(); 


} 

If 


-- Unit 
-- File 
-- Date 
-- Author 
-- Systems 
-- Description 


: Header for db__utility (.h) 

: disutility.h 
: Documented Feb 29, 1996„ 

: Ruey-Wen (Vincent) Hong 
: Sun C++ and ONTOS (2.1) 

: The Ada/C++ Bridge Control Technique is originally created 
: by Osman Ibrahim. 

: Provide Function prototypes of some relevant Ontos DB 

operation so that they are visible to and callable from 
Ada. These operations needs to be extended in the future 
in the same way as the need arises. 


*/ 

#include <Database.h> 

#include "component.h" 

#include "exception_interface.h" 

int ada_c_open_database(char* dbname); 

void ada„c_c1ose_database(char* dbname); 

void ada_c_transaction_start(); 

void ada__c_transaction_commit () ; 

void ada_c_ save_t o_db(Component *); 

void ada__c_delete_f rom_db (Component*) ; 

/* — — — ------ 


-- Unit 
-- File 
-- Date 
-- Author 
-- Systems 
-- Description 


The implementation for db_utility (.cxx) 
db_uti1ity.cxx 
Documented Oct 5,1995. 

Osman Ibrahim 

Sun C++ and ONTOS (2.1) 

Provide the Implementation for some relevant Ontos DB 
operation so that they are visible to and callable from 
Ada. These operations needs to be extended in the future 
in the same way as the need arises. 


*/ 


#include 
#include 
#include 
#Include 


"component_interface.h" 
<Directory.h> 
<Exception.h> 
"exception__interface .h" 


92 










// Note : We tried to place all EXCEPTION objects in one header file 
(exception 

// _interface.h) and be used whereever needed, but this resulted in an error 
// came from the loader saying they are multiply defined, the same eror came 
// out when even we placed them global in the same file, so we had to put each 
// in the proper function where the Exception Is expected. 

// 


//An interface to ontos DB operation OC_open(dbname) 

void ada_c__open_database (char* dbname) 

{ 

ExceptionHandler db_open_failed ("DatabaseOpenFailed"); 

if (db_open_failed.Occurs()) 

ada_c_set_exception_code(db_open_failed_code); 

else 

{ 

ada_c_set_except ion_code ( normal__code) ; 

if (!(OC_dbIsOpen())) OC_open(dbname); 

} 


} 

// 


//An interface to ontos DB operation OC_close(dbname) 

void ada_c__c 1 os e_dat abase (char* dbname) 

{ 

ExceptionHandler db_not„open ("DatabaseNotOpen"); 

if (db_not_open.Occurs()) 

ada_c_set_exception_code(db_not_open_code); 

else 


{ 

} 

} 

// 


ada_c_3et_exception_code ( normal_code); 
OC_close (dbname) ; 


// An interface to ontos DB operation OC_transactionStart() 
void ada_c_transaction_start() 

// According to Ontos; No Exceptions are associated with this operation 
// Howerver the one added below wil catch any exception raised inside ONTOS 

{ 

ExceptionHandler ontos_falure ("Failure"); 
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If (ontos_fa.lure. Occurs () ) 

ada_c_set_exception_code (ontos_failure_code) ; 

else 

{ 

ada_c__set_exception_code ( normal_code) ; 

OC_transactionStart(); 

} 


// An interface to ontos DB operation OC_transactionCommit(} 

void ada_c_transaction_commit() 

{ 

ExceptionHandler no_active_transaction ("NoTransaction"); 

if (no_active_transaction.Occurs()) 

ada_c_set_exception_code (no_active_transactions ode) ; 

else 

{ 

ada_c__set_exception_code ( normal_code); 
OC_transactionCommit(); 

} 

} 

// 


// I Think the following 2 operations should be moved to "Component__inteface" 
// because both are specific to designer objects and we can not make them 
// general to accept any object type 

// 


// An Interface to ontos DB operation putObjectO .. specific to an object 
void ada_c_save_t o__db (Component * ada_pt r) 


ExceptionHandler object_already_exists("NameInUse"); 
if (object_already_exists.Occurs()) 

ada_c_set_exception_code(object_already_exists_code); 

else 

{ 

ada_c_set_exception_code( normal_code); 
ada_ptr->putObject(); 

} 

} 

// 
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// An interface to ontos DB operation deleteObject() .. specific to an object 


void ada_c_delete_from_db (Component* ada_ptr) 


ExceptionHandler no_such_object ("NameNotPound"); 

if (no_such_obj ect.Occurs()) 

ada_c_set_exception_code(no_such__object_code); 

else 

{ 

ada_c_set_exception_code( normal_code); 
ada_ptr->deleteObj ect(); 

} 

} 

// 


/* 


-- Unit 
-- File 
-- Date 
-- Author 
-- Systems 
-- Description 


: The header for exception_interface (.h) 
exception_interface.h 

Documented Feb 29, 1996. 

Ruey-Wen (Vincent) Hong 
Sun C++ and ONTOS (2.1) 

The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 

Provides an interface to a set of exception codes defined 
below and the protypes for 2 functions that sets and gets 
the values of an exception code set by differnt functions 


from db_utility and Component_interface units indicating 
that some exception has occured or not, the meaning of 
the exception codes are : 


normal_code: no exception has occurred 

object_already_exists_code: An attempt was made to store 

object into the DB but another object is 
already exists in DB having the same name 
no_such_object_code: No such object in the DB 
havining that name 

db_open__failed_code: An attempt was made to open 

a DB that does not exist or using a wrong 
name (eg misspelled) 

db__not_open_code: An attempt was made to close 
a DB that was not previously opened 
no_active_transaction_code: An attempt was made to 

commit a transaction that was not started yet 


*/ 


#include <Exception.h> 







#define normal_code 0 

#define ob ject_already_exists__code 1 

#define no_such__ob ject_code 2 

#define db_open_failed_code 3 

#define db_not_open_code 4 
#define no_active_transaction_code 5 
#define ontos_failure_code 6 


// Note: 

If 

If 

II 

11 

11 


The following exception objects have been moved from here to the 
proper local places; specifically each to a Function(s) inside 
Component_interface.cxx and db_utility.cxx. The reason for this 
obligatory movement is because the loader complains of being defined 
here and used there and gives me " objects so and so are multuply 
defined". I'm not sure what is wrong because inspite of the error 


rasg., 

// the program links and run normally. OSMAN Oct 5, 1995 


// ExceptionHandler 
// ExceptionHandler 
// ExceptionHandler 
// ExceptionHandler 
// ExceptionHandler 
// ExceptionHandler 


db__°pen_failed ("DatabaseOpenFailed") ; 
db_open_failed("DatabaseOpenFailed"); 
db_not_open ("DatabaseNotOpen") ; 
no_active_transaetion ("NoTransaction"); 
object_already_exists ("NamelnUse"); 
no_such_object ("NameNotFound"); 


// The following function was introduced to allow ada to capture an exception 
// raised inside ONTOS so that Ada can handle it in a way taht will not cause 
// the program to abort because of a user error; e.g a misspelled DB name. 

int ada c get exception code(); 

// The following function is used by different operations from inside 
// db_utility and Component_interface to set exception code into one of the 
// above codes acording to the situation. 

void ada__c_set_except ion_code (int); 

/* --- ----- 


-- Unit 
-- File 
-- Date 
-- Author 
-- Systems 
-- Description 


get 


The implementation for exception_interface (.cxx) 
exception_interface.cxx 
Documented Feb 29, 1996. 

Ruey-Wen (Vincent) Hong 
Sun C++ and ONTOS (2.1) 

The Ada/C++ Bridge Control Technique is originally created 
by Osman Ibrahim. 

Provides the imlementation for the 2 functions set and 
exception_code that sets and gets the values of an 


exception code set 
exception 


by differnt functions from db_utility 

and Component^interface units indicating that some 

has occured or not, the meaning of the exception codes 
are : 


normal_code: no exception has occurred 

object_already_exists_code: An attempt was made to store 

object into the DB but another object is 
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already exists having the same name 
no_such_object_code: No such object in the DB 
havining that name 

db_open_failed_code: An attempt was made to open 

a DB that does not exist or using a wrong 
name (eg misspelled) 

db_not_open_code: An attempt was made to close 
a DB that was not previously opened 
no_active_transaction_code: An attempt was made to 

commit a transaction that was not started yet 


*/ 


#include "exception_interface.h" 
int global_exception_code = 0 ; 
int ada c get exception code() 

// The following function was introduced to allow ada to capture an exception 
// raised inside ONTOS so that Ada can handle it in a way taht will not cause 
// the program to abort because of a user error; e.g a misspelled DB name. 

{ 

return global_exception_code; 

} 

// The following function is used by different operations from inside 
// db_utility and Component_interface to set exception code into one of the 
// above code acording to the situation. 

void ada_c_set_exception_code(int exception_code) 

{ 

global_exception_code = exception_code ; 

} 
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APPENDIX C - ONTOS USERS MANUAL 


A. QUICK REFERENCE 

This manual contains the commands that you will need to use to create and register an 
ONTOS database in your own directory for use as a CAPS design database. 

1) copy the ONTOS schema to the ultimate physical location of your DDB: 

>cp /usr/local/ONTOS2/ONTOS/ONTOSDB/db/OntosSchema <MyPath>/<MySchema> 

2) Change the file permissions: 

>chmod 666 <MyPath>/<MyScbema> 

3) Invoke DBATool (in /usr/local/ONTOS2/bin/DBATool) 

>DBATool 

you will get the promptenter the following command to register a kernel for your 

DB 

>> register kernel <MyKernel> on <Ontos_Server> at <MyPath>/<MySchema> 

where MyKernel and MySchema are the names of your kernel and physical DB schema 
respectively. MyPath is simply the path to your schema (the physical location of your DDB). 
The next 3 commands link the kernel with the schema: 

>> register database <MySchema> with kernel <MyKernel> 

>> sync 
>> quit 

The next command creates a Makefile: 

cp $CAPSHOME/doc/DDB_make <MyPath>/Makefile 

Finally, run the following Makefile command: 

>make freshdb 

NOTE: In some instances, we have observed the DB refreshing process deadlock. If you do not 
see any progress for more than a minute, kill the process using Control-C and issue the above 
command again. 

After a DDB has been created, it can be erased and reclassified using "make freshdb". 
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B„ MAKEFILE 


# Logical database name 

# 

# MODIFY THE NEXT LINE TO THE NAME OF YOUR DB 
LOGDBNAME=vincent_db 

# 

# MODIFY Where your physical database schema file lives 
DBFILE=/n/suns5/work/Vincent/swbase/MySchema 

############################################################## 

# # 

# DO NOT MODIFY ANYTHING BELOW THIS POINT # 

# # 
############################################################## 
# 

# Locations of libraries and include files 

# 

ONTOSINCDIR= /usr/local/ONTOS2/include/ONTOS 
ONTOSLIBDIR= /usr/local/ONTOS2/bin 
# 

# 

# Source files 

CAPS_SWB_SRCS = component.cxx db_interface.cxx db_utility•cxx 
exception_interface.cxx 

# 

# Files to classify 

# 

CLASSIFILESl = component„h 

# 

# +X means classify with extensions 
EXTENSION = +X 

# +v means print what is being classified 
VERBOSE = +v 

# 

# Where OntosSchema lives 

ONTOSSCHEMA = /usr/local/ONTOS2/ONTOS/ONTOSDB/db/OntosSchema 

LIBS=“L$(ONTOSLIBDIR) -lONTOS 
INCLUDES=-I$(ONTOSINCDIR) 

CAPS_SWB_OBJS = $(CAPS_SWB_SRCS s.cxx=.o) 


template s 

a.make -v -f *.a 

a-Id -o template.exe test_swb -d -L/usr/local/CC2-1/SCI.0 lONTOS 
1 /usr/local/CC2-1/SCI-0/patch template.exe 
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.SUFFIXES: 


. cxx 


. cxx.o: 

CC -c -go $(INCLUDES) *.cxx 


classifyl: 

classify +D$(LOGDBNAME) $(EXTENSION) $(VERBOSE) \ 
$(INCLUDES) ${CLASSIFILES1) 


freshdb: 

rm $(DBFILE)* 

cp $(ONTOSSCHEMA) $(DBFILE) 
chmod 777 $(DBFILE) 
make classifyl 


caps: 

cplus -c -g -Bstatic $(CAPS_SWB_SRCS) $(INCLUDES) $(LIBS) 

component: 

cplus -c -g -Bstatic component.h $(INCLUDES) $(LIBS) 

CC -c -go $(INCLUDES) component.cxx 
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APPENDIX D - SOFTWARE BASE USERS MANUAL 


To use the CAPS software base, the user has to start CAPS by typing “caps” at the prompt. 
If your CAPS environment has been set up correctly, you will get the CAPS main menu shown in 
Figure 14. If the CAPS main menu does not come up correctly, you should inform your CAPS 
manager to check on your CAPS environment configuration. 



i ~A|&n 

§§Jjj FB f Computer-Aided Prototyping System : ■ 

Mil "111 

Figure 14. CAPS Start Up Window 

To invoke the CAPS Software Base, click on the Database selection square with the left 
mouse button. Two submenus will be displayed: Design Database and Software Base. Here we 
want to explore the Software Base, so left click the mouse on the Software Base selection. 

Figure 15 will come up within a few seconds. From this point on, you will interact directly 
with the Software Base utility. 


CAPS SOFTWARE BA8E S5 



Figure 15. CAPS Software Base Main Menu 


As we mentioned earlier, the SBGUI can be separated into two parts(User part and DBM A 
part), with the submenu structures shown in Figure 16. 
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Figure 16. Structure of the User and DBMA Options 


Access to the Query option is available to all users. Whether a user can select the Mainte¬ 
nance option depends on the CAPS user mode. The Software Base will check the user’s privilege 
to see whether s/he is a CAPS manager. When the user is a CAPS manager, s/he has access to the 
Maintenance option, otherwise the user can only execute the query option. An unauthorized click 
on the maintenance button will be rejected. As a user manual, this document concentrates on the 
operational assistance within the Software Base. 

A. THE QUERY OPTION 

Let us start from the query option. When the user left click the Query button, the query 
window shown in Figure 17 is displayed. 


c&fs swbqi;ekv : system 


M&tmaX Impost. C&rniel j:T SMp 


Figure 17. CAPS Software Base Query Menu 
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Query functionality can be separated into Manual and Import. Manual means that the user 
has to input the query specification manually. Import identifies the capability of searching the 
software library based on the specification automatically generated from the SDE. 

When the user left click the Manual button, it will trigger the window shown in Figure 
18(a). The user should select the keywords s/he needs from the “Keyword” window and the sys¬ 
tem will display them on the right hand side, “Selected Keyword” window automatically. After 
the selection, Figure 18(b) will be displayed. 



(b) 

Figure 18. Keyword Selection Window 


When the user finishes with Keyword selection, s/he left clicks the OK button. The system 
will keep these selected keywords in a predefined Query_Keywords_String and then trigger the 
window in Figure 19(a) below. It allows the user to input the number of query operators and the 
number of test cases which axe the two critical requirements to the multi-level filtering retrieval 
technique(MLFRT). 
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Figure 19. Get the Number of Operators and Test Cases 

After entering the number of operators and test cases(shown in Figure 19(b) displayed), 
the system will display the window in Figure 20. 



| . C&tiosS i i N<rjrt uL Cancel Hcip 

(a) (b) 

Figure 20. Get Detail Information for Each Operator 


In order that the desired component be matched as closely as possible, all of its internal 
operators must be fully specified. Full specification is tied to these internal operator’s names and 
profile patterns. 

The name is simply a description of what the user believes the internal operator does. It is 
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used in part of the later matching process. 

The profile description is a little more complicated and is broken into two stages, giving 
rise to the name multi-level filtering. The first step is to define the inputs and outputs in a general 
level. This is the operator’s profile. For example, if looking for a component such as a stack, user 
need to specify an Empty operator, a Top operator, a Push operator, etc. 

Figure 20 shows how these internal operators are specified. This must be done for each 
internal operator of the desired component. Figure 20 will be repeatedly popped up for the num¬ 
ber of the operators which user input in Figure 19. Figure 20(a) and Figure 20(b) are two exam¬ 
ples showing input for the operator Empty and Top when the user searches for a Stack-like 
software component. In the MLFRT process, the user needs to supply the query information for 
operator name , profile and the signature name. 

Notice the profile selected in Figure 20(b). It shows that there is one input and one out- 
put(A -> B). If for example, there were two inputs and one output of different types, user should 
pick “A B -> C”. 

Once this profile pattern is specified, user must get the signature names, which are fine 
grained specifications for the unique input and output signatures. Continuing with the Top internal 
operator, Figure 21 shows how this information is gathered. Once the user clicks on a signature, it 
is displayed in the box as shown in Figure 21(b). 



(b) 

Figure 21. Get the Name for each Signature in the Profile 
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The user then enters a signature name which matches its type as close as possible. Once 
this is done, the Next button is left clicked to commit to name. 

Obviously, if the user tries to find a stack component, s/he must specify the other internal 
operators like the Top operator in the example above. The Next button in Figure 20 is selected 
after completing the specifications of each of these operators. Once all internal operators of the 
desired component are specified, the OK button in Figure 20 is selected. The next step is to decide 
how close the match must be for a component to be selected as a possible choice. 

Figure 22 shows how the matching criteria is constrained. The KPS (Keyword, Profile, 
Signature Match Ratio) entries defines a lower and upper bound on how closely the candidate 
components matches the desired component. Also shown in Figure 22 is an entry for MBN(Map 
Block Number). It is used to constrain the display of the candidate components. Figure 22(b) 
shows an example which user specify the KPS is from 0.1 to 1.0 and the MBN is 1. 



Figure 22. Get the KPS and MBN 

The final step prior to doing the search is specifying the Ground Equation which is 
required by the MLFRT(shown in Figure 23(a). 
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(a) 


(b) 

Figure 23. Get Ground Equation for OBJ3 

The Ground Equations are needed for the semantic behavior matching of all the internal 
operators previously specified. These equations are built for utilizing the OBJ3 Algebra Specifica¬ 
tion Language. If the user is not familiar with this language, outside help will be required as that is 
beyond the scope of this manual. An example of a Ground Equation for a Stack-like component 
query is displayed in figure 23(b). 

The Next button of Figure 23 has similar functionality as the Next button did in Figure 21. 
It will clear the ground equation keyin buffer and let the user keyin the next ground equation. 
After all the information is entered, left click the OK button and the window displayed in Figure 
24 will appear. 




Figure 24. Start Search Panel 

The final step in the query process is to push the Search button and the search will be exe¬ 
cuted. The system will feed the query specification into some particular query form, and feed 















them into the Multi-Level Filtering Retrieval Module which uses a DFS algorithm to look up the 
software base and retrieves the proper candidate components. 

Here is a practical example: 

Suppose that a user submits a query containing the following information: 

® The keywords are: Booch, Data-Structure, Stack. 

« The partial specification is: 

Package Stack-Of-Nat is Type Stack; 

— Query operations 
function Empty(Out: Stack) . 
function Top(In: Stack; Out: Nat) . 
function Push(In: Nat, Stack; Out: Stack) . 
function Pop(In: Stack; Out: Stack) . 

— Query ground equations 

Top Push(1,Empty) = Top Pop(Push(6,Push(1,Empty))) . 

Pop Push(7,Push(1,Empty)) = Push(l,Emty) „ 

End of Package Stack-Of-Nat; 

• The selection criterion is to choose component that has a KPS from 0.1 to 1.0. The 
MBN is selected to be 1. 

Given this query, the program scan the operations above to compute the profile table 
The result which comes out will include following information: 


Find component: Stack2.obj 
Using Map Number: 1 

KeywordRank: 1.0E+00, ProfileRank: 1.0E+00 

SignatureRank: 1.0E+00, SemanticRank: 4.0E+00 

The ComponentRank Value: 4.0E+00 


Find component: list.obj 
Using Map Number: 1 

KeywordRank: 6.7E-01, ProfileRank: 1.0E+00 

SignatureRank: 1.0E+00, SemanticRank: 4.0E+00 
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The ComponentRank Value: 2.7E+00 


Find component: queue, obj 
Using Map Number: 2 

KeywordRank: 6.7E-01, ProfileRank: 1.0E+00 

SignatureRank: 1.0E+00, SemanticRank: 2.0E+00 

The ComponentRank Value: 1.3E+00 


Find component: bag.obj 
Using Map Number: 3 

KeywordRank: 6.7E-01, ProfileRank: 1.0E+00 

SignatureRank: 1.0E+00, SemanticRank: 0.0E+00 

The ComponentRank Value: 0.0E+00 


The query produced four candidate components which are all very similar. The output is 
listed in order of matching degree. Notice that Stack2.obj has a higher ComponentRank Value 
than all the rest and therefore is probably the best candidate for the query. It is now up to the user 
to decide which one s/he wants, or go back and redo the query with tighter specification require¬ 
ments. 


B. THE MAINTENANCE OPTION 

When maintaining the software library, the CAPS manager has to push the Maintenance 
button shown previously in Figure 14. Software Base system will pop up as shown in Figure 25. 
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Figure 25. CAPS Software Base Maintenance Menu 


According to the functional requirements of the SBGUI, software base maintenance work 
includes library creation, selection, deletion, and backup. After the DBM A selects a desired 
library, s/he should be able to append, delete, modify, and browse software components. 
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APPENDIX E - SBGUI TAE SOURCE CODE 


-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE. 

-- *** File: global__s.a 

— *** Generated: Feb 20 10:57:53 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

__ *** Application: CAPS Software Base 


************************************************************************** 

* 

* Global -- Package SPEC 

* 

************************************************************************** 


with X_Windows; 
with Text_IO; 
with TAE; 

with SYSTEM; 

use TAE,SYSTEM,Text_IO; 

package Global is 


PURPOSE: 

This package is automatically n with"ed in to each panel package body. 
You can insert global variables here. 


INITIALIZATION EXCEPTIONS: (none) 
NOTES: (none) 

REGENERATED: 

This file is generated only once, 
impacting automatic code merge. 

CHANGE LOG: 

20-Feb-96 TAE Generated 


Therefore, you may modify it without 


package Taefloat_IO is new Text_IO.Float_IO (TAE.Taefloat); 
Default_Display_Id : X__Windows .Display; 


--ADDED 


-- ADDED By Ruey-Wen (Vincent) Hong 
-- This part is only for Pan_Opdetail„b.a 


type sig_chk_type is array(1..10) of string(l..l); 
Sig_Exist__Chk_Vec : sig„chk_type : = 

^ n q ii ^ ii q H , M © *i, ii o " f 11 0 *', " 0 'I M 0 ” 11 0 11 " 0 " 11 0 ” ) * 
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type sig_keep_vec_type is array(1..10) of string(1..1); 
Sig_Keep_Vec : sig_keep_vec_type := (others => " "); 

Sig_Keep_Vec : array(1..10) of string(l..l) : = (others => M "); 

Sig_Keep_Vec : array (1..1) of String (1..10); 

Sig_Keep_Vec : String(1..10) := (others => " "); 

skv_index : integer := 1; 


kps_froxn : float; 
kps_to : float; 
mbn : natural; 


-- MODIFIED/ADDED 


library : String (1..10):= ( 1 A' , 1 d' f ' a' ,others=> 1 '); 

COMPONENT_IS__OPERATOR : BOOLEAN; 


1ib_to_de1et e 
path 

proto__pref ix 

Query psdl 

Directory 

kwquery_out file 

query_outfile 

component 

directory_array 

dir ec t ory_f i 1 e_name 

lib__vec 

file_vec 

Is_a_directory 

Upper_directory 

Component_add 

Component_update 

Query 

current__directory 
directory_file 
cur__dir___index 
lib_count 
num_of_comp 


String (1..10):= (others=>' '); 

String(1. .80):= (others=>' *); 

String(1..80) : = (others=> 5 *); 

String(1..80): = (others=>‘ '); 

String(1. .80):= (others=>‘ '); 

String(1.*15):="kwquery_outfile"; 

String (1. .13) : = "query__outf ile” ; 

String(1..80): = (others=>‘ '); 

String (1..27):= (others=>‘ '); 

String(1..14) := "directory_file”; 

s_vector(1..20)s = (others=> new STRING(1..10)); 
s_vector(1..1000):= (others=> new STRING(1..80)); 
Boolean:=FALSE; 

Boolean:-FALSE; 

Boolean:=FALSE; 

Boolean:=FALSE; 

Boolean:-FALSE; 

array(1..20) of String(1..80); 

f ile__type; 

integer:=1; 

integer:=0; 

integer : =1; 


-- MODIFIED 

com : constant String:= 

"/n/suns7/work/caps93/SUN4/bin/sb u ; 

parse : constant String:="/n/sun54/work/caps92/src/ 

software_base/integrate/"; 

gui_directory : constant String:="/n/sun54/work/caps92/src/ 

user_interface/sb_interface/"; 
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-ADDED 

OPERATOR__FILE_NAME : constant STRING := "operator psdl spec.txt"; 
TYPE_FILE_NAME : constant STRING := "type_j>sdl__spec. txt" ; 

PROTOTYPE_FILE_NAME : constant STRING := "prototype psdl spec,txt"; 
com2 : constant String:= 


com3 

- THE_STATUS 
HAS__GENERICS 
QC_IN__PARAMS , 
QC_OUT_P ARAMS, 
SBC_IN_PARAMS , 
SBC_OUT_P ARAMS, 

- GEN_PARAMS 
QC_IN_COUNT, 
QC_OUT_COUNT , 
SBC_IN_COUNT, 
SBC__OUT_COUNT , 
GEN_COUNT 

- SBC_NAME, 

- QC_NAME 


"/n/suns7/work/caps93/SUN4/bin/opsig 
constant String:= 

"/n/suns7/work/caps93/SUN4/bin/adtsig 


: COMPONENTS TATUS; 
: BOOLEAN; 


» . 


: PARAMETERS; 


: INTEGER; 

: PSDL__ID_PKG. PSDL_ID ; 


App1ication_Done 


-- Subprogram SPEC 


function Application__Done 
return Boolean; 


PURPOSE: 


--1 This function returns true if a "quit" event handler has called 
--I Set_Application_Done / otherwise it returns false. 


EXCEPTIONS: 


(none) 


NOTES: 


(none) 


Set_Application_Done 


-- Subprogram SPEC 


115 







procedure Set_Application__Done; 


PURPOSE: 

This procedure can be used by an event handler, typically a "quit" 
button, to signal the end of the application. 

EXCEPTIONS: (none) 

NOTES: (none) 

--ADDED 


system_call -- Subprogram SPEC 


procedure system_call(command : STRING); 

--I PURPOSE: 

--I This procedure is used to make unix system calls from within the 
program. 


strlen Subprogram SPEC 


procedure strlen(s: in String; n: in out Integer); 

--I PURPOSE: 

--I This procedure is used to get the length of strings. 


list_directory -- Subprogram SPEC 


procedure list_directory(file :in out file_type; 

file_name:in out string; 
file_vec :in out s__vector; 

I 

:in out integer); 

--I PURPOSE: 

--| This procedure is used to obtain the contents of unix directory 
structures. 
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list_components -- Subprogram SPEC 


procedure list_components (file :in out file__type; 

f ile__name: in out string; 
file_vec :in out s_vector; 

I 

:in out integer); 

--I PURPOSE: 

--I This procedure is used to read the component list from a text file and 
— I fill them into a s_vector structure to be displayed in a TAE panel. 


read_directory — Subprogram SPEC 


procedure read_directory(file :in out file_type; 

f ile__name : in out string; 
dir_name :in out string); 

--I PURPOSE: 

--I This procedure is used to read the name of the current directory and 
--I to get the path from a text file. 


errorstring -- Subprogram SPEC 


procedure errorstring(file :in out file__type; 

file_name:in out string; 
err__str :in out string); 

--I PURPOSE: 

--I This procedure is used to read the error message given by the software 
--j base program. 


parse_line -- Subprogram SPEC 
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procedure parse_line(s: in String); 

--I PURPOSE: 

--| This procedure is used to determine if the selected line is a directory 
--| or a file and if it is a directory it gets the identity of the 
directory. 


end Global; 


-- *** TAE Plus Code Generator version V5 „ 3 [Merge Token: DO NOT DELETE.] 

-- *** File: global_b.a 

-- *** Generated: Feb 20 10:57:53 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


* 

* Global -- Package BODY 

* 


package body Global is 

--I NOTES: (none) 

--I 

I REGENERATED: 


This file is generated only once, 
impacting automatic code merge. 


Therefore, you may modify it without 


CHANGE LOG: 

20-Feb-96 TAE 


Is_App1ication_Done 


Generated 
Boolean := FALSE; 


Application_Done -- Subprogram BODY 


function Application_Done 
return Boolean is 

--I NOTES: (none) 

begin -- Application_Done 

return Is_Application_Done; 
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end Application__Done; 


Set_Application_Done -- Subprogram BODY 


procedure Set_Application_Done is 
--I NOTES: (none) 
begin -- Set_Application_Done 
Is_Application_Done := TRUE; 
end Set_Application_Done; 


--ADDED By RUEY-WEN HONG 960110 


system_call 


-- Subprogram BODY 


procedure system__call (command : STRING) is 

procedure system_c (command : ADDRESS) ; 
pragma INTERFACE(C, SYSTEM_C); 
pragma INTERFACE_NAME (SYSTEM_C, "_system M ) ; 
TEMP : constant STRING := command&ASCII.NUL; 
ERROR : INTEGER; 


begin 

SYSTEM_C(TEMP 1 ADDRESS); 
end system_call; 


strlen 


-- Subprogram BODY 


procedure strlen(s: in String; n: in out Integer) is 
I : Integer := 1; 


begin 

loop 

if s(I) = 1 1 then 
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exit; 
end if; 
I;=1+1; 

end loop; 

ns = 1-1; 
end strlen; 


list_directory 


--- Subprogram BODY 


procedure list__directory (f ile s in out file_type; 
filenames in out string; 
file_vec : in out s_vector; 

I sin out integer)is 
len s integer :=1; 

begin 


I; =1; 

open (file, mode=>in__f ile, name=>file_name) ; 
file„vec(I).all (1 . .2): = " .. "; 

for cl in 3..80 loop 

file_vec(I) .all(cl) : = ' 1 ; 

end loop; 

while not end_of_file (file) loop 


I:=1+1; 


Text__IO.get^line (file, file_vec (I) .all, len) ; 
for clean in (len+l)..80 loop 

file_vec(I).all(clean):=' a ; 


end loop; 
end loop; 
close(file); 

exception 

when END_ERROR => null; 


end list_directory; 


list_components 


procedure list__components (file sin out file_type; 

file_name:in out string; 
file_vec s in out s_vector; 

I 
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:in out integer)is 

len: integer :=1; 

begin 


end 


I:=l; 

open (file ,mode=>in_file, name=>f ile__name) ; 
while not end_of_file (file) loop 

Text__IO.get_line (file, f ile_vec(I).all,len); 
for clean in (len+l)..80 loop 

file_vec(I).all(clean):=' '; 


loop; 


I:=1+1; 


end loop; 

I:=1-1; 
close(file); 
end list__components; 


read_directory 


procedure read_directory(file :in out file_type; 

file_name:in out string; 

dir_name ;in out string) is 
len: integer :=1; 

begin 

open(file,mode=>in_file,name=>file_name); 
Text_IO.get_line (file,dir_name, len); 
close(file); 
end read_directory; 


errorstring 


procedure errorstring(file :in out file_type; 

file_name:in out string; 

err_str :in out string)is 
len: integer :=1; 

begin 

open (file, mode=> in__f ile, name=> f i 1 e_name) ; 
Text_IO.get_line(file,err_str,len); 
if len=0 then 

Text_IO.get_line (f ile,err__str, len) ; 


121 









end if; 


close(file); 
exception 

when END_ERROR => close(file); 
end errorstring; 


parse_line 


procedure parse__line (s: in string) is 

char:character; 

N :integer:=1; 

begin 


strlen(s,N); 
if s(N)=’/' then 

Is_a_directory:=TRUE; 

end if; 
if N=2 then 

if s(l..2)=".then 
Upper_directory:=TRUE; 

end if; 
end if; 

end parse_line; 


end Global; 

*** TAE Plus Code Generator version V5 « 3 [Merge Token: DO NOT DELETE*.] 
__ *** pile; panbackup_l_s.a 

-- *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

— *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


„ _ ************************************************************************** 
_ * 

* Panel_backup_l -- Package SPEC 

_ * 

_ _ ************************************************************************** 

with TAE; 
with X_Windows; 

package Panel_backup_l is 

~-| PURPOSE: 

--I This package encapsulates the TAE Plus panel: backup__l 

--1 These subprograms enable panel initialization, creation, destruction. 
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and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 

It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: backup_l 

CHANGE LOG: 

4-Mar-96 TAE Generated 


Info : TAE.Tae_Wpt.Event_Context_Ptr; -- panel information 


Initialize_Panel 


Subprogram SPEC 


procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.CollectionJPtr ); 


-- TAE Collection read from 
-- resource file 


--I PURPOSE: 

--I This procedure initializes the Info.Target and Info.View for this panel 


EXCEPTIONS: 


--I TAE.UNINITIALIZED_PTR is raised if Collection__Read not initialized 
--I TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 
--I Collection_Read 


NOTES: 


(none) 


Create_Panel 


-- Subprogram SPEC 


procedure Create_Panel 
( Panel_State 

: in TAE. Tae__Wpt.Wpt_Flags 


-- Flags sent to Wpt_NewPanel. 
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:= TAE.Tae_Wpt .WPT_PREFERRED; 

Relative_Window 

: in XJWindows -Window 

:= X_Windows .NullJWindow ); 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


--! PURPOSE: 

--I This procedure creates this panel object in the specified Panel_State 
| and stores the panel Id in Info.Panel_Id. 


EXCEPTIONS: 


--1 TAE *UNINITIALIZED_PTR is raised if the panel is not initialized 
--I TAE-TAE_FAIL is raised if the panel could not be created 


NOTES: 


(none) 


Connect_Panel 


Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE•Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in XJWindows .Window 

:= XJWindows .NullJWindow ); 


-- Panel origin is offset from 
this X Window. Null_JWindow 
-- uses the root window. 


PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info.Panel_Id. 

If this panel does exist, it is set to the specified Panel__State. 

In this case, Relative__Window is ignored. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE JFAIL is raised from Create_Panel if the panel could not be 
created 

TAE„Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 

NOTES: (none) 
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Destroy__Panel 


-- Subprogram SPEC 


procedure Destroy_Panel; 


PURPOSE: 

This procedure erases a panel from the screen and de-allocates the 
associated panel object (not the target and view). 

EXCEPTIONS: 

TAE.Tae__Wpt.BAD_PANEL_ID is raised if Info.Panel_Id is an invalid id. 
NOTES: 

Info.Panel_Id is set to TAE.NULL_PANEL„ID, and should not referenced 
in any Wpt call until it is created again. 


Dispatch_Item 


-- Subprogram SPEC 


procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE.Tae_Wpt.Event_Context_Ptr ); -- event. 


PURPOSE: 

This procedure calls the Event Handler specified by User_Context_Ptr 

EXCEPTIONS: 

Application-specific 

NOTES: (none) 

end Panel_backup_l; 


-- *** T ae Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

__ *** File: pan_backup_l_b.a 

-- *** Generated: Mar 4 14:14:09 1996 

__ *** Author : By Ruey-Wen (Vincent) Hong 

— *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 

_ ************************************************************************** 

_ * 

* Panel_backup_l -- Package BODY 

_ * 

_ ************************************************************************** 
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with TAE; use TAE; 
with Text„IO; 
with Global; 

-- One "with” statement for each connected panel. 

-- MERGE NOTE: Add additional "with"s BELOW this line. 
— MERGE NOTE: Add additional "with"s ABOVE this line. 


package body Panel_backup__l is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: backup_l 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 

backup__message, full_backup, partial_Jbackup 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line. 

4-Mar-96 TAE Generated 

MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initializ e_Pane1 


Subprogram BODY 
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procedure Initialize_Panel 
( Collection„Read 

: in TAE.Tae_Co*Collection_Ptr ) is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE. TaeJWpt. Event_Context; 

Info.Collection := Collection_Read; 

TAE. Tae_Co. Co_Find (Info .Collection, ,, backup_l_v" , Info.View); 
TAE.Tae_Co.Co_Find (Info .Collection, "backup__l__t", Info .Target) ; 

-- MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO.Put_Line ("Panel_backup_l.Init ialize__Panel: " 

Sc "Collection_Read not initialized.”); 
raise; 

when TAE.Tae_Co.NO_SUCH„MEMBER => 

Text_IO. Put_Line ( "Panel_backup_l. Initialize__Panel: " 

Sc "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 


Greate_Panel -- Subprogram BODY 


procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

: = TAE. TaeJWpt. WPT__PREFERRED ; 

Relative_Window 

: in X_Windows.Window 

:= X_Windows.Null_Window ) is 

I NOTES: (none) 
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-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Create_Panel ABOVE this line. 

begin -- Create_Panel 

if Xnfo.Panel__Id = Tae.Null_Panel_Id then 
TAE.Tae_Wpt.Wpt_NewPanel 


Displayed 

= > 

Global .Def ault_Display__Xd, 

Data__Vm 

=> 

Info.Target, 

View_Vm 

=> 

Info.View, 

Relative_Window 

= > 

Relative_Window, 

User__Context 

=> 

Info, 

Flags 

=> 

Panel_State, 

Panel_Xd 

=> 

Info.Panel_Id ); 


else 

Text_IO«Put_Line ("Panel (backup__l) is already displayed."); 
end if; 

-- MERGE NOTE: Add code for Create__Panel BELOW this line. 

-- MERGE NOTE: Add code for Create_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO. Put_Line ( "Panel_backup_l.Creat e__Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 

When TAE.TAE_FAIL => 

Text_IO. Put_Line ( "Panel_backup_l. Create_Panel: " 

& "Panel could not be created."); 
raise; 

end Create_Panel; 


Connect_Panel 


Subprogram BODY 


procedure Connect_Panel 
( Panel__State 

: in TAE.Tae_Wpt. Wpt_Flags 

:= TAE.Tae„Wpt.WPT_PREFERRED; 

Relative_Window 

: in XJWindows .Window 

:= X_JWindows .NullJWindow ) is 

--I NOTES: (none) 
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-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 

begin -- Connect_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
Create_Panel 

( Re1ative_Window => RelativeJWindow, 

Panel_State => Panel_State ); 

else 

TAE. Tae_Wpt .Wpt__SetPanelState (Info.Panel^Id, Panel__State) ; 
end if; 

-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add code for Connect_Panel ABOVE this line. 

exception 

when TAE .TaeJWpt .BAD_STATE => 

Text_IO.Put_Line ("Panel_backup_l.Connect_Panel: " 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 


Destroy_Panel 


-- Subprogram BODY 


procedure Destroy_Panel is 
--I NOTES: (none) 

MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE. Tae__Wpt .Wpt_PanelErase (Inf o. Panel_Id) ; 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE. Tae__Wpt. BAD__PANEL__ID => 

Text_IO.Put_Line ("Panel_backup_l.Destroy_Panel: " 

& "Info.Panel_Id is an invalid id."); 
raise; 
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when TAE. TaeJWpt. ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed, 

-- Trap this exception and do nothing. 

null; 

end Destroy_Panel; 


k++++++++++++++++++++++++++++++++ 


-- begin EVENT HANDLERS 


backup__message_Event 


-- Subprogram SPEC & BODY 


procedure backup_message_Event 

( Info : in TAE. TaeJWpt. Event_Context__Ptr ) is 

— I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

— I NOTES: (none) 

Value : array (1..1) of String (1. .TAE.TaeJPaeconf .STRINGS IZE) ; 

Count ; TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: backup__message. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: backup_message. 

begin -- backup_message_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel backup_l, parm backup_message: value - "); 
if Count > 0 then 

TAE. Tae_Vm. Vm__Extract_SVAL (Inf o . Parm„Ptr, 1, Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text__IO. Put_Line ( "none" ) ; 
end if; 

MERGE NOTE: Add code BELOW this line for parm: backup__message. 

MERGE NOTE: Add code ABOVE this line for parm: backup_message. 

end backup_message__Event; 
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f u1l_backup„Event 


-- Subprogram SPEC & BODY 


procedure full_backup_Event 

( Info : in TAE. Tae_Wpt. Event_Context_Ptr ) is 

--[ PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

— I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: full_backup. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: full_backup. 

begin -- full_backup_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr 7 Count); 

Text__IO.Put ("Panel backup_l, parm full_backup: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO.Put_Line (Value(1) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: full_backup. 

-- MERGE NOTE: Add code ABOVE this line for parm: full_backup. 

end full_backup_Event; 


partial_backup_Event 


-- Subprogram SPEC & BODY 


procedure partial__backup_Event 

( Info : in TAE .Tae_Wpt .Event_Context__Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

MERGE NOTE: Add declarations BELOW this line for parm: partial_backup. 
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-- MERGE NOTE: Add declarations ABOVE this line for parm: partial_backup. 

begin -- partial_backup_Event 

TAE,Tae_Vin«Vm_Extract_Count (Info.Pann_Ptr / Count) ; 

Text__IO.Put ("Panel backup_l, parxn partial_backup: value = "); 
if Count > 0 then 

TAE • Tae_Vm . Vta_Extract_SVAL (Inf o„ Parm_Ptr, 1, Value (1) ) ; 

Text_IO. Put__Line (Va lue (1) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 

MERGE NOTE: Add code BELOW this line for parxn: partial_backup. 

MERGE NOTE: Add code ABOVE this line for parxn: partial__backup. 

end partial_backup_Event; 


-- end EVENT HANDLERS 


Dispatch_Xtexn 


Subprogram BODY 


procedure Dispatch_Item 

( User_Context_Ptr : in TAE•Tae_Wpt«Event_Context_Ptr ) is 
I NOTES: (none) 
begin -- Dispatch_Item 

if TAE„ Tae__Misc. s_equal ( "backup_message " , User__Context_Ptr • Parm_Name) 

then 

backup__message_Event (TJser_Context_Ptr) ; 
els if TAE. Tae__Misc . s_equal ( " f ull_backup " , User_Context_Ptr. Parm_Name) 

then 

full_backup_Event (XJser_Context_Ptr) ; 
elsif TAE.Tae_Misc.s_egual ("partial_backup", 

User_Context_Ptr.Parm_Name) then 

partial_backup_Event (User_Context__Ptr) ; 
end if; 

end Dispatch_Xtem; 
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-- MERGE NOTE: Add additional code BELOW this line. 

-- MERGE NOTE: Add additional code ABOVE this line. 

end Panel__backup_l; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: pan_create_l_s.a 

-- *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

__ *** Application: CAPS Software Base 


* 

* Panel__create_l -- Package SPEC 

* 


with TAE; 
with X_Windows; 

package Panel_create_l is 


PURPOSE: 

This package encapsulates the TAE Plus panel: create__l 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 


--I INITIALIZATION EXCEPTIONS: (none) 
— I 

--I NOTES: (none) 


— [ REGENERATED: 

--I The following Workbench operations will cause regeneration of this file: 
--I The panel's name is changed (not title) 

--I For panel: create_l 


CHANGE LOG: 

4-Mar-96 TAE 


Generated 


Info : TAE. Tae__Wpt. Event_Cont ext__Ptr; -- panel information 


Initialize_Panel 


-- Subprogram SPEC 


procedure Initialize_Panel 
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TAE Collection read from 
resource file 


( Collection_Read 

: in TAE.Tae„Co.Collection_Ptr ); 


--| PURPOSE: 

--| This procedure initializes the Info.Target and Info.View for this panel 


EXCEPTIONS: 


--| TAE.UNINITIALXZED_PTR is raised if Collection_Read not initialized 
--| TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 
--| Collection_Read 


NOTES: 


(none) 


Create_Panel 


Subprogram SPEC 


procedure Create^Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

; = TAE . Tae__Wpt .WPT_P REFERRED ; 

Relative_Window 

: in XJWindows.Window 

;= X_Windows.Null.Window ); 


-- Flags sent to Wpt__NewPanel. 


-- Panel origin is offset from 
this X Window. NullJWindow 
-- uses the root window. 


PURPOSE: 


This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Info.Panel_Id. 


EXCEPTIONS: 


--I TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
--| TAE.TAE_FAIL is raised if the panel could not be created 


NOTES: 


(none) 


Connect__Panel 


Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 
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Relative_Window 

: in X_Windows * Window 

:= X_Windows .Null_JWindow ); 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel__State and stores the panel Id in 
Info.Panel_Id. 

If this panel does exist, it is set to the specified Panel_State. 

In this case, Relative_Window is ignored. 

EXCEPTIONS: 

TAE. UNINITIAL I ZED__PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE.Tae„Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 

NOTES: (none) 


Destroy_Panel 


-- Subprogram SPEC 


procedure Destroy_Panel; 


PURPOSE: 

This procedure erases a panel from the screen and de-allocates the 
associated panel object (not the target and view). 

EXCEPTIONS: 

TAE.Tae_Wpt.BAD_PANEL__ID is raised if Info.Panel_Id is an invalid id. 
NOTES: 

Info.Panel_Id is set to TAE.NULL_PANEL__ID, and should not referenced 
in any Wpt call until it is created again. 


Dispatch_Item 


— Subprogram SPEC 


procedure Dispatch_Item 
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( User_Context_Ptr 

: in TAE. Tae_Wpt. Event_Context_„Pt r 


-- Wpt Event Context for a PARM 
); -- event. 


--I PURPOSE: 

--| This procedure calls the Event Handler specified by User_Context__Ptr 


EXCEPTIONS: 


--| Application-specific 
--I 

— I NOTES: (none) 


end Panel__create_l; 


-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE,] 

__ *** pile: pan_create_l_b.a 

__ *#* Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 

_ ************************************************************************** 

_ * 

* Panel_create_l -- Package BODY 

__ * 

_ ************************************************************************** 

with TAE; use TAE; 
with Text__IO; 
with Global; 


-- One "with" statement for each connected panel, 

-- MERGE NOTE: Add additional "with"s BELOW this line. 
-- MERGE NOTE: Add additional "with"s ABOVE this line. 


package body Panel_create_l is 


NOTES: 

For each parameter that you have defined to be "event-generating M in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event", 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 
The panel's name is changed (not title) 
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For panel: createj 


-I The following WorkBench operations will also cause regeneration: 

-| An item is deleted 

-| A new item is added to this panel 

-I An item's name is changed (not title) 

-I An item's data type is changed 

-! An item's generates events flag is changed 

-I An item's valids changed (if item is type string and connected) 

-I An item's connection information changed 

- I For the panel items: 

-1 create_l_disp, create_l_keyin, create_l__label 


CHANGE LOG: 


-1 MERGE NOTE: Add Change Log entries BELOW this line. 
-I 4-Mar-96 TAE Generated 

-I MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initialize_Panel 


-- Subprogram BODY 


procedure Initialize_Panel 
( Collection_Read 

: in TAE .Tae_Co.Collection__Ptr ) is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae__Co.Co__Find (Inf o .Collection, "create^v", Info.View); 
TAE.Tae_Co.Co_Find (Info.Collection, "create_l_t", Info.Target); 

MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO. Put__Line ("Panel_create_l. Initialize_Panel: " 

& "Collection_Read not initialized."); 
raise; 
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When TAE.Tae_Co.NO_SUCH_MEMBER => 

Text_IO. Put_Line ( "Panel_create__l. Initialize_Panel: 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 


Create__Panel 


Subprogram BODY 


procedure Create_Panel 
( Panel_State 

: in TAE.TaeJWpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Re lat i ve__Window 

: in X_Windows .Window 

:= X_Windows.Null_Window ) is 

--I NOTES % (none) 

-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Create_Panel ABOVE this line. 

begin -- Create_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
TAE . Tae__Wpt. Wpt__NewPanel 


Display_Id 

=> 

Global.Default_Display_Id, 

Data_Vm 

= > 

Info.Target, 

View_Vm 

=> 

Info.View, 

Relative_Window 

=> 

Relative_Window, 

User_Context 

=> 

Info, 

Flags 

=> 

Panel_State, 

Panel_Id 

=> 

Info.Panel_Xd ); 


else 

Text_IO.Put_Line ("Panel (create_l) is already displayed."); 
end if; 

-- MERGE NOTE: Add code for Create_Panel BELOW this line. 

— MERGE NOTE: Add code for Create_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO. Put__Line ( "Panel_create_l. Create^Panel: ” 

& "Panel was not initialized prior to creation."); 
raise; 
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when TAE. TAE_J?AIL => 

Text_IO.Put_Line ("Panel_create_l.Create_Panel: 

& "Panel could not be created."); 
raise; 

end Create_Panel; 


Connect_Panel 


Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

: in TAE .Tae_Wpt .Wpt__Flags 

: = TAE . Tae_Wpt. WPT_PREFERRED ; 

Relative_Window 

: in X_Windows .Window 

:= X_Windows .Null__Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 

begin -- Connect_Panel 

if Info.Panel__Id = Tae.Null_Panel_Id then 
Create_Panel 

( Relative_Window => Relative_Window, 

Panel_State => Panel_State ); 

else 

TAE.Tae_Wpt.Wpt_SetPanelState (Info.Paneled, Panel_State); 
end if; 

-- MERGE NOTE: Add code for ConnectPanel BELOW this line. 

-- MERGE NOTE: Add code for Connect_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_STATE = > 

Text_IO. Put_Line ( "Panel_create__l. Connect__Panel: " 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 
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Destroy_Panel 


-- Subprogram BODY 


procedure Destroy_Panel is 
--| NOTES; (none) 

-- MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE. Tae_Wpt. BAD_PANEL__ID => 

Text_IO.Put_Line ("Panel_create_l.Destroy_Panel: " 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt.ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 

Trap this exception and do nothing, 
null; 

end Destroy_Panel; 


f- + + + 4- ++++++++++ 


-- begin EVENT HANDLERS 


create_l__disp_Event 


Subprogram SPEC & BODY 


procedure create_l_disp__Event 

( Info : in TAE . Tae__Wpt. Event_Context_Ptr ) is 

--I PURPOSE; 

“-I EVENT HANDLER. Insert application specific information. 

--I 

--| NOTES: (none) 

Value : array (1..1) of String (1. .TAE .Tae__Taeconf. STRINGS IZE) ; 
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Count : TAE.Taeint; 


" MERGE NOTE: Add declarations BELOW this line for parm: create_l_disp. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: create__l_disp. 

begin -- create_l_disp_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel create_l, parm create_l_disp: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm Extract_SVAL (Info.Parm_Ptr, 1, Value(1)); 

Text__IO. Put_Line (Value (1) ) ; 
else 

Text__IO. Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: create__l_disp. 

-- MERGE NOTE: Add code ABOVE this line for parm: create__l_disp . 

end create_l_disp__Event; 


create_l_Jkeyin_Event 


-- Subprogram SPEC & BODY 


procedure create_l_keyin_Event 

( Info : in TAE. Tae_Wpt. Event_Context_Ptr ) is 

— I PURPOSE: 

--I EVENT HANDLER, Insert application specific information, 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

— MERGE NOTE: Add declarations BELOW this line for parm: create_l_keyin. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: create_l_keyin. 

begin -- create_l_keyin_Event 

TAE. Tae_JVm. Vm_Extract_Count (Info. Parm_Ptr, Count) ; 

Text_IO.Put ("Panel create_l, parm create_l_keyin: value = "); 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL (Inf o. Parm_Ptr, 1 , Value(l)); 

Text_IO. Put_Line (Value (1) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 
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-- MERGE NOTE: Add code BELOW this line for parm: create__l_keyin. 
-- MERGE NOTE: Add code ABOVE this line for parm: create_l__keyin. 

end create_l_keyinJEvent; 


create_l_label_Event 


--- Subprogram SPEC & BODY 


procedure create_l_label_Event 

( Info : in TAE * Tae__Wpt . Event_Context_Ptr ) is 

—| PURPOSE: 

--! EVENT HANDLER-, Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1 *.TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: create__l_label 
-- MERGE NOTE: Add declarations ABOVE this line for parm: create_l„label 

begin -- create_l_label_Event 

TAE.TaeJVm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel create_l f parm create_l__label: value = "); 
if Count > 0 then 

TAE.Tae_Vm«Vm_Extract_SVAL (Info.Parm_Ptr / 1, Value(1)); 

Text__IO. Put_Line (Value (1) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 

--- MERGE NOTE: Add code BELOW this line for parm: create_l_label. 

-- MERGE NOTE: Add code ABOVE this line for parm: create_l_label. 

end create_l_label_Event; 


end EVENT HANDLERS 










Dispatch__Item 


-- Subprogram BODY 


procedure Dispatch_Item 

( User_Context_Ptr : in TAE.Tae_Wpt.Event_Context_Ptr ) is 
--I NOTES: (none) 
begin -- Dispatch_Item 

if TAE.Tae_Misc.s_equal ( n create_l_disp n , User_Context_Ptr.Parni_Name) then 
create_l_disp_Event (User_Context_Ptr); 
elsif TAE.Tae_Misc.s_equal ("create__l_keyin", 

User„Context_Ptr.Parm_Name) then 

create_l_keyin_Event (User_Context_Ptr); 
elsif TAE. Tae_Misc .s__equal ( "create_l__label" , 

User_Context_Ptr. Parm_Name) then 

create_l_label_Event (User__Context_Ptr) ; 
end if; 

end Dispatch_Item; 


-- MERGE NOTE: Add additional code BELOW this line. 

-- MERGE NOTE: Add additional code ABOVE this line. 

end Panel_create_l; 

— *** TAE pi us code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: pan_delete_l_s.a 

__ *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

— *** Date : Mar 5, 1996 

„ *** Application: CAPS Software Base 


************************************************************************** 

* 

* Panel_delete__l -- Package SPEC 

* 

************************************************************************** 


with TAE; 
with X_Windows; 

package Panel_delete_l is 


PURPOSE: 

This package encapsulates the TAE Plus panel: delete_l 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 
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INITIALIZATION EXCEPTIONS: (none) 


NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: delete_l 


CHANGE LOG: 

4-Mar-96 TAE 


Generated 


Info : TAE.Tae__Wpt.Event_Context_Ptr; -- panel information 


Initialize_Panel 


Subprogram SPEC 


procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ); 


-- TAE Collection read from 
-- resource file 


--! PURPOSE: 

--I This procedure initializes the Info.Target and Info.View for this panel 


EXCEPTIONS: 


--I TAE.UNINITIALIZED„PTR is raised if Collection„Read not initialized 
--| TAE.Tae_Co.NO_SUCH„MEMBER is raised if the panel is not in 
--I Collection_Read 


NOTES: 


(none) 


Create_Panel 


Subprogram SPEC 


procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.TaeJWpt.WPT_PREFERRED; 

Relative_Window 

: in XJWindows .Window 


-- Flags sent to Wpt__NewPanel. 


-- Panel origin is offset from 
-- this X Window. NullJWindow 
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X_Windows.Null_Window ); 


-- uses the root window. 


PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Info.Panel_Id. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 

NOTES: (none) 


Connect_Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
( Panel__State 

: in TAE.TaeJWpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X__Windows .Window 

:= X_Windows .Null_Window ); 


-- Panel origin is offset from 
— this X Window. Null_Window 
-- uses the root window. 


--I PURPOSE: 

--I If this panel doesn’t exist, this procedure creates this panel object 
--I in the specifiec Panel_State and stores the panel Id in 
--I Info.Panel_Id. 

--I If this panel does exist, it is set to the specified Panel_State. 

--I In this case, Relative_Window is ignored. 


EXCEPTIONS: 

TAE.UNINITIALIZED PTR 


is raised from Create_Panel if the panel 


is 


--I not initialized 

--I TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
--| created 

--I TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
--I Panel_State is an invalid state 


NOTES: (none) 


Destroy_Panel 


-- Subprogram SPEC 
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procedure Destroy_Panel; 


--I PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--| associated panel object (not the target and view). 

-~| EXCEPTIONS: 


TAE. Tae__Wpt. BAD_PANEL_ID is raised if Inf o . Panel_Id is an 
NOTES: 

Info.Panel_Id is set to TAE.NULL_PANEL_ID , and should not 
in any Wpt call until it is created again. 


invalid id. 


referenced 


Dispatch_Xtem 


Subprogram SPEC 


procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARK 

: in TAE.Tae_Wpt.Event__Context_Ptr ); -- event. 


--I PURPOSE: 

--I This procedure calls the Event Handler specified by User__Context__Ptr 


EXCEPTIONS: 


--I Application-specific 
— I 

--1 NOTES: (none) 


end Panel_delete_l; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: pan_delete__l_b.a 

-- *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


_ ************************************************************************** 

_ * 

* Panel__de lete_l -™ Package BODY 

_ * 

_ ************************************************************************** 

with TAE; use TAE; 
with Text_IO; 
with Global; 

-- One "with" statement for each connected panel. 
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— MERGE NOTE: Add additional "with"s BELOW this line. 

— MERGE NOTE: Add additional "with ,, s ABOVE this line. 


package body Panel_delete_l is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: delete_l 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 
An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 
delete_l_disp 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line. 

4-Mar-96 TAE Generated 

MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initialize_Panel 


Subprogram BODY 


procedure Initialize_Panel 
( Collection_Read 
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: in TAE.Tae_Co .Collection__Ptr ) is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

— MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Xnitialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE .Tae_Co .Co_Find (Inf o. Collection, "delete_l_jv n , Info. View) ; 

TAE.Tae_Co.Co_Find (Info.Collection, "delete_l_t", Info.Target); 

-- MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text__IO.Put_Line ("Panel_delete_l.Initialize_Panel: " 

& ,, Collection_Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text__IO. Put_Line ("Panel_delete_l. Initialize__Panel: " 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 


Greate^Panel 


-- Subprogram BODY 


procedure Create_Panel 
( Panel__State 

: in TAE. Tae_Wpt .Wpt__Flags 

:= TAE.Tae_Wpt.WPT-PREFERRED; 

RelativeJWindow 

: in X__Windows-Window 

s= X_Windows.Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Greate_Panel ABOVE this line. 

begin -- Create_Panel 
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if Inf o . Panel_Id = Tae .Null_JPanel_Id then 
TAE. Tae_Wpt . Wpt_NewPanel 


Displayed 

=> 

Global. Def ault _Display_Id, 

Data_Vm 

=> 

Info.Target, 

View__Vm 

= > 

Info.View, 

Relative_Window 

= > 

RelativeJWindow, 

User_Context 

= > 

Info, 

Flags 

= > 

Panel_State. 

Panel_Id 

= > 

Info. Panel__Id ); 


else 

Text_IO. Put__Line ("Panel (delete_l) is already displayed."); 
end if; 

-- MERGE NOTE: Add code for Create___Panel BELOW this line. 

-- MERGE NOTE: Add code for Create^Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO.Put_Line ("Panel_delete__l .Create_Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE . TAE_FAIL => 

Text_IO.Put_Line ("Panel_delete__l.Create_Panel: " 

& "Panel could not be created."); 
raise; 

end Create_Panel; 


Connect_Panel 


-- Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

: = TAE . Tae__Wpt. WPT_PREFERRED ; 

Relative_Window 

: in X_JWindows .Window 

:= X__Windows .Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 

begin -- Connect_Panel 
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if Info.Panel_Id = Tae.Null_Panel_Id then 
Create_Panel 

( RelativeJWindow => RelativeJWindow, 

Panel_State = > Panel_State ); 

else 

TAE.Tae_Wpt.Wpt_SetPanelState (Info*Panel_Id, Panel^State); 
end if; 

MERGE NOTE: Add code for Connect_Panel BELOW this line. 

MERGE NOTE: Add code for Connect_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_STATE = > 

Text_IO. Put_Line { 11 Panel_delete_l. Connect__Panel: n 
& "Invalid panel state."); 
raise; 

end Connect__Panel; 


Destroy_Panel 


Subprogram BODY 


procedure Destroy_Panel is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE *Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_PANEL_ID => 

Text_IO. Put_Line ( ” Panel_delete__l. Destroy_Panel: ” 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt. ERASE__NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 

-- Trap this exception and do nothing. 

null; 
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end Destroy_Panel; 


-- begin EVENT HANDLERS 


delete_l_disp„Event 


-- Subprogram SPEC & BODY 


procedure delete_l_disp_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

— I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: delete__l_disp. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: delete_l__disp. 

begin -- dele te__l_disp_E vent 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text__IO. Put ("Panel delete__l, parm delete__l_disp: value = ") ; 
if Count > 0 then 

TAE.Tae__Vm.Vm_Extract__SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO. Put__Line (Value (1) ) ; 
else 

Text__IO. Put_Line ( "none" ) ; 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: delete__l_disp. 

-- MERGE NOTE: Add code ABOVE this line for parm: delete_l_disp. 

end delete_l_disp_Event; 


-- end EVENT HANDLERS 
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Dispatch__Item 


Subprogram BODY 


procedure Dispatch_Item 

( User__Context_Ptr : in TAE . Tae_Wpt . Event_Context__Ptr ) is 
--I NOTES: (none) 
begin -- Dispatch_Item 

if TAE * Tae_Misc . s_equal ("delete_l_disp", User__Context_Ptr. Parm_Name) then 
delete_l_disp_Event (User_Context_Ptr) ; 
end if; 

end Dispatch„Item; 


-- MERGE NOTE: Add additional code BELOW this line. 

-- MERGE NOTE: Add additional code ABOVE this line. 

end Panel_delete_l; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: pan_go_s.a 

__ *** Generated: Mar 4 14:14:09 1996 

*** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


* 

* Panel_go -- Package SPEC 

* 


with TAE; 
with X_Windows; 

package Panel_go is 


PURPOSE: 

This package encapsulates the TAE Plus panel: go 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 
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REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: go 

CHANGE LOG: 

4-Mar-96 TAE Generated 


Info : TAE . Tae_JWpt.Event__Context_Ptr; -- panel information 


Initialize_Panel 


Subprogram SPEC 


procedure Initialize__Panel 
( Collection__Read 

: in TAE.Tae_Co.Collection_Ptr ); 


-- TAE Collection read from 
-- resource file 


PURPOSE: 


This procedure initializes the Info.Target and Info.View for this panel 


--I EXCEPTIONS: 

--I TAE.UNINITIALIZED_PTR is raised if Collection_Read not initialized 
--I TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 
--I Collection_Read 


NOTES: 


(none) 


Create_Panel 


-- Subprogram SPEC 


procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

: = TAE . Tae_Wpt. WPT_PREFERRED; 

Relative_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 


-- Flags sent to Wpt_NewPanel. 


-- Panel origin is offset from 
— this X Window. Null__Window 
-- uses the root window. 


--I PURPOSE: 

--I This procedure creates this panel object in the specified Panel__State 
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and stores the panel Id in Info.Panel_Id. 

EXCEPTIONS: 

TAE*UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 

NOTES; (none) 


Connec t__Pane 1 


-- Subprogram SPEC 


procedure Connect__Panel 
( Panel_State 

: in TAE. Tae__Wpt.Wpt_Flags 

:= TAE. Tae__Wpt.WPT_PREFERRED ; 

Relative_Window 

; in XJWindows .Window 

;= X_Windows .Null_Window ); 


Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info.Panel_Id. 

If this panel does exist, it is set to the specified Panel__State. 

In this case, Relative_Window is ignored. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE„Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 

NOTES; (none) 


Destroy_Panel 


Subprogram SPEC 


procedure Destroy_Panel; 

-<-1 PURPOSE: 

--| This procedure erases a panel from the screen and de-allocates the 
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associated panel object (not the target and view) 


EXCEPTIONS: 

TAE.Tae_Wpt.BAD_PANEL__ID is raised if Info.Panel_Id is an invalid id. 
NOTES: 

Info.Panel_Id is set to TAE.NULL_PANEL_ID, and should not referenced 
in any Wpt call until it is created again. 


Dispatch_Item 


Subprogram SPEC 


procedure Dispatch_Item 

( User__Context_Ptr -- Wpt Event Context for a PARM 

: in TAE.Tae_Wpt.Event_Context_Ptr ); -- event. 


--I PURPOSE: 

-- I This procedure calls the Event Handler specified by User_Context_Ptr 


--I EXCEPTIONS: 

— I Application-specific 

— I 

— I NOTES: (none) 


end Panel_go; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

__ *** pile: pan_go_Jb.a 

-- *** Generated: Feb 22 12:17:44 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 

— ************************************************************************** 
_ * 

* Panel_go -- Package BODY 

_ * 

— ************************************************************************** 
with TAE; use TAE; 
with Text_IO; 
with Global; 


-- One "with" statement for each connected panel, 
with Panel„grnd_eq; 

-- MERGE NOTE: Add additional "with"s BELOW this line. 
-- MERGE NOTE: Add additional "with"s ABOVE this line. 
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-- ADDED By RUEY-WEN HONG 960222 


With Op_Util_Mods; Use Op_Util_Mods; 

With Global_def; Use Global__def; 

With Query_processing__pkg; Use Query_jprocessing__pkg; 

With Swb_pkg; Use Swb_pkg; 

With Swb_def_pkg; Use Swb_def__pkg; 

With Signature_match_pkg; Use Signature__match_pkg; 

With Semantic_match_pkg; Use Semantic_match_jpkg; 

With Init__pkg; Use Init_pkg; 

With Formulate__Result_Output_pkg; Use Formulate_Result_Output_pkg; 
With Float_io; Use Float__io; 

With Integer__io; Use Integer_io; 

With Text_io; Use Text_io; 

With Integer_io; Use Integer_io; 


package body Panel__go is 


NOTES: 

For each parameter that you have defined to be "event“generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application“dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file 
The panel's name is changed (not title) 

For panel: go 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 

Cancel, go_help, go__label, go_search, 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line. 
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--I 22-Feb-96 TAE Generated 

— I MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


-- ADDED By RUEY-WEN HONG 960222 


Candidates : CandidatesTable; 

Profile_err : Profile_err_list := (Others => Nill); 
Q: Qc; C: SWC; 

V: Signature_map; 
id,! : Natural := 1; 
cl : natural := 0; 
sn : natural; 

Num_vmaps : Natural; 

Stable : Sort_table_def; 

U1,L1 : Float; 

KeywordRank, ProfileRank : Float; 

SortArray : Asort_Array; 


Initialize_Panel 


-- Subprogram BODY 


procedure Initialize__Panel 
( Collection_Read 

: in TAE.Tae__Co.Collection_Ptr ) is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.Co_Find (Info.Collection, M go_v", Info.View); 

TAE.Tae_Co.Co_Find (Info.Collection, "go_t" # Info.Target); 

-- MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 
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Text_IO. Put_Line (" Panel_go . Init ialize__Panel: 

& "Collection_Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text_IO.Put_Line ("Panel„go.Initialize_Panel: 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 


Create_Panel 


Subprogram BODY 


procedure Create_Panel 
( Panel_State 

; in TAE.TaeJWpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X__Windows .Window 

: = XJWindows.NullJWindow ) is 

--I NOTES: (none) 

MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Create__Panel ABOVE this line. 


begin -- Create_Panel 

if Info.Panel Id - Tae.Null Panel Id then 


TAE. Tae_Wpt. Wpt__NewPanel 
( Display„Id 
Data_Vm 
View__Vm 

Relative_Window 
User__Context 
Flags 
Panel_Id 

else 

Text_IO.Put_Line ("Panel 
end if; 

-- MERGE NOTE: Add code fo: 
-- MERGE NOTE: Add code fo: 


=> Global. Def ault_Display__Id, 
=> Info.Target, 

= > Info.View, 

= > Relative__Window, 

=> Info, 

= > Panel_State, 

=> Info.Panelld ); 

(go) is already displayed."); 


Create_Panel BELOW this line. 
Create_Panel ABOVE this line. 


exception 

when TAE.UNINITIALIZED_PTR => 
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Text_IO.Put_Line ("Panel_go.Create_Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE . TAE__FAIL => 

Text_IO. Put__Line ( "Panel_go. Create_Panel: " 

& "Panel could not be created."); 
raise; 

end Create_Panel; 


Connect_Panel 


-- Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

: = TAE . Tae_Wpt.WPT_PREFERRED ; 

Relative_Window 

: in X_Windows.Window 

:= XJWindows.Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 

begin -- Connect_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
Create_Pane1 

( Relative_Window => Relative__Window, 

Panel_State => Panel_State ); 

else 

TAE.Tae_Wpt.Wpt_SetPane1state (Info.Panel_Id x Panel_State); 
end if; 

-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 

MERGE NOTE: Add code for Connect_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_STATE = > 

Text_IO.Put_Line ("Panel_go.Connect_Pane1: " 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 


159 






Destroy_Panel 


Subprogram BODY 


procedure DestroyJPanel is 
--j NOTES: (none) 

MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

— MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE.TaeJWpt.BAD__PANEL„ID => 

Text__IO . Put_Line ("Panel_go.Destroy_Panel: " 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt.ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Destroy__Panel; 


— begin EVENT HANDLERS 


Cancel_Event 


-- Subprogram SPEC & BODY 


procedure Cancel_Event 

( Info : in TAE.Tae_Wpt.Event__Context__Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 
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— I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: Cancel. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: Cancel. 

begin -- Cancel_Event 

TAE.Tae_Vm.Vln__Extract_Count (Info .ParmJPtr, Count) ; 

Text_IO.Put ("Panel go, parm Cancel: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Inf o. ParmJPtr, 1, Value(1)); 

Text__IO. Put_Line (Value (1) ); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- Cancel 
Destroy_Panel; 

Panel_grnd„eq.Connect__Panel (TAE.TaeJWpt.WPT_PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: Cancel. 

-- MERGE NOTE: Add code ABOVE this line for parm: Cancel. 

end Cancel_Event; 


go_help_Event 


-- Subprogram SPEC & BODY 


procedure go_help_Event 

( Info : in TAE. Tae__Wpt. Event_Context_Ptr ) is 

--| PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1. .TAE. Tae__Taeconf. STRINGSIZE) ; 
Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: go_help. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: go_help. 

begin -- go_help_Event 

TAE.Tae__Vm.Vm_Extract_Count (Info.Parm_Ptr, Count) ; 
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Text_IO.Put ("Panel go, parm go_help: value = "); 
if Count > 0 then 

TAE«Tae_Vm*Vm_Extrac t__SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO « Put_Line (Value (1) ) ; 
else 

Text_IO„ Put__Line ( "none" ) ; 
end if; 


-- MERGE NOTE: Add code BELOW this 
-- MERGE NOTE: Add code ABOVE this 


line for parm: go_help. 
line for parm: go_help. 


end go_help_Event; 


go_label_Event 


Subprogram SPEC & BODY 


procedure go_label_Event 

( Info : in TAE «Tae_Wpt <, Event_Context__Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE•Taeint; 


-- MERGE NOTE: Add declarations BELOW this line for parm: go__label» 
-- MERGE NOTE: Add declarations ABOVE this line for parm: go_label. 

begin -- go_label_Event 


TAE.Tae_Vm.Vm_Extract__Count (Info.Parm_Ptr, Count) ; 
Text_IO.Put ("Panel go, parm go_label: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm^Ptr, 1, Value(l)); 
Text_IO•Put_Line (Value(1)); 
else 

Text__IO. Put__Line ( "none " ) ; 
end if; 


— MERGE NOTE: Add code BELOW this 
--- MERGE NOTE: Add code ABOVE this 


line for parm: go_label. 
line for parm; go__label. 


end go_label_Event; 
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go_search_Event 


-- Subprogram SPEC & BODY 


procedure go_search_Event 

( Info : in TAE.TaeJWpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--1 EVENT HANDLER. Insert application specific information. 

— 1 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: go_search. 
MERGE NOTE: Add declarations ABOVE this line for parm: go_search. 

begin -- go__search_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel go, parm go_search: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO.Put^Line (Value(1)); 
else 

Text__IO. Put_Line ("none " ) ; 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: go_search. 

-- MERGE NOTE: Add code ABOVE this line for parm: go_search. 


-- ADDED By RUEY-WEN HONG 960222 


put("Enter L1,U1: "); 

get(LI); get(Ul); 

Put("Enter Sn: ") ; 
get(sn) ; 
get(id); 

LI := 0.1; 

LI:= Global.kps_from; 
U1:= Global.kps_to; 
sn := Global.mbn; 
id := 1; 


Get_Query(Q,Stable) ; 
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-- Retrieve components from Library using profile from test cases 


Initialize_variables (V, Nmnjvmaps, Stable) ; 

InitComponentData(id,C,Stable,Q,KeywordRank,ProfileRank) ; 

-- Signature Match 

put("Working on 2 ");put(String(C.Obj_filename));New_line; 
cl := 0; 

Signature__Match(Q,C,V,Stable,Num_vmaps,cl, sn, LI,U1, KeywordRank,ProfileRank); 
put("Count number of unfilter map"); put(cl);new_line; 

-- Semantic_Match 

Sexnantic__Match (Q, C, V, Stable, Num_vmaps) ; 

-- Formulate Result and output to user 
Calculate_total_rank(V, Q, C, 1, Num_vmaps ,SortArray, 

KeywordRank,ProfileRank); 

Sort_Display„Result(SortArray,1); 

Display_invalid_operations(Q,Profile_err); 


end go_search_Event; 


-- end EVENT HANDLERS 


Dispatch_Item -- Subprogram BODY 


procedure Dispatch_Item 

( User_Context_Ptr : in TAE. Tae_Wpt . Event_Context_Ptr ) is 
--1 NOTES: (none) 
begin -- Dispatch^Item 
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if TAE. Tae_Misc . s_equal ("Cancel", User_Context_Ptr. Parm_Name) then 
Cancel_Event (User_Context_Ptr); 

elsif TAE.Tae_Misc.s_equal ("go_help", User_Context_Ptr.Parai_Name) then 
go_Jhelp_Event (User_Context_Ptr); 

elsif TAE.Tae_Misc . s_equal ( "go_label" , User_Context_Ptr. Parm_Name) then 
go_label_Event (User_Context_Ptr) ; 

elsif TAE.Tae_Misc . s_equal ("go_search", User_Context_Ptr.Parm_Name) then 
go_search__Event (User_Context__Ptr) ; 

end if; 

end Dispatch_Item; 


-- MERGE NOTE: Add additional code BELOW this line. 

-- MERGE NOTE: Add additional code ABOVE this line. 

end Panel_go; 

-- *** ^AE pi us code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

__ *** pile: pan_grnd_eq_s.a 

— *** Generated: Mar 4 14:14:09 1996 

__ *** Author : Ruey-Wen (Vincent) Hong 

__ *** Date : Mar 5, 1996 

__ *** Application: CAPS Software Base 


************************************************************************** 

* 

* Panel_grnd_eq -- Package SPEC 

* 

************************************************************************** 


with TAE; 
with X_Windows; 

package Panel_grnd_eq is 


PURPOSE: 

This package encapsulates the TAE Plus panel: grnd_eq 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 


— I REGENERATED: 

--I The following Workbench operations will cause regeneration of this file: 
--I The panel’s name is changed (not title) 

--I For panel: grnd__eq 
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-I CHANGE LOG: 

-I 4-Mar-9 6 TAE 


Generated 


Info : TAE.Tae_Wpt.Event_Context_Ptr; -- panel information 


Initialize_Panel 


Subprogram SPEC 


procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ); 


-- TAE Collection read from 
-- resource file 


--I PURPOSE: 

--I This procedure initializes the Info.Target and Info.View for this panel 


EXCEPTIONS: 


--I TAE.UNINITIALIZED_PTR is raised if Collection_Read not initialized 
--l TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 
--| Collection_Read 


NOTES: 


(none) 


Create_Panel 


Subprogram SPEC 


procedure Create__Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.TaeJWpt «WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= X„Windows .Null_Window ) ; 


-- Flags sent to Wpt__NewPanel. 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


PURPOSE: 


--I This procedure creates this panel object in the specified Panel_State 
--I and stores the panel Id in Info.Panel_Id. 


EXCEPTIONS: 


--I TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
--I TAE.TAE_FAIL is raised if the panel could not be created 
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--! NOTES: (none) 


Connect_Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt•Wpt_Flags 

: = TAE . Tae__Wpt. WPT_PREFERRED ; 

Relative_Window 

: in X_Windows.Window 

: = X_Windows.Null_Window ); 


-- Panel origin is offset from 
-- this X Window. Null__Window 
-- uses the root window. 


--I PURPOSE: 

--! If this panel doesn't exist, this procedure creates this panel object 
--I in the specifiec Panel_State and stores the panel Id in 
--I Info.Panel_Id. 

""I If this panel does exist, it is set to the specified Panel_State. 

--I In this case, Relative_Window is ignored. 


EXCEPTIONS: 

TAE.UNINITIALIZED_J?TR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 


NOTES: 


(none) 


Destroy_Panel 


-- Subprogram SPEC 


procedure Destroy_Panel; 


PURPOSE: 

This procedure erases a panel from the screen and de-allocates the 
associated panel object (not the target and view). 


--I EXCEPTIONS: 

I TAE.Tae_Wpt.BAD_PANEL_ID is raised if Info.Panel_Id is an invalid id. 


NOTES: 
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-- I Info.Panel__Id is set to TAE.NULL__PANEL_ID, and should not referenced 
--| in any Wpt call until it is created again. 


Dispatch_Xtem 


Subprogram SPEC 


procedure Dispatch_Item 
( User_Context_JPtr 

: in TAE <> Tae_Wpt. Event_Context_Ptr 


-- Wpt Event Context for a PARK 
) ; ~~ event. 


--! PURPOSE; 

--I This procedure calls the Event Handler specified by User_Context_Ptr 


EXCEPTIONS: 


- - I Application-specific 
-- I 

--I NOTES: (none) 


end Panel_grnd_eq; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: pan_grnd_eq_b.a 

__ *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


_ ************************************************************************** 

_ * 

* Panel_grnd_eq -- Package BODY 

_ * 

_ ************************************************************************** 

with TAE; use TAE; 
with Text_IO; 
with Global; 

-- One "with" statement for each connected panel, 
with Panel_mbn_kps; 
with Panel_grnd_eq; 
with Panel_go; 

-- MERGE NOTE: Add additional ,, with"s BELOW this line. 

-- MERGE NOTE: Add additional "with n s ABOVE this line. 

package body Panel__grnd„eq is 

--I NOTES: 
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For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTEs will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: grnd_eg 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 

grnd_eq__cancel, grnd__eq_help, grnd_eq__keyin, grnd_eq_next, 
grnd eg ok 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line. 

4-Mar-96 TAE Generated 

MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initialize_Panel 


-- Subprogram BODY 


procedure Initialize_Panel 
( CollectionJRead 

: in TAE.Tae_Co.Collection_Ptr ) is 
NOTES: (none) 

— MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 
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begin -- Initialize_Panel 

Info : = new TAE. Tae_Wpt.Event__Context ; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.Co_Find (Info.Collection, "grnd„_eq__v", Info.View); 
TAE.Tae_Co .Co_Find (Info.Collection, "grnd_eq_t 11 , Info.Target) ; 

-- MERGE NOTE; Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize^Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO.Put_Line ("Panel_grnd_eq.Initialize_Panel: " 

& "Collection_Read not initialized."); 
raise; 

when TAE. Tae__Co. NO_StXCH_MEMBER => 

Text_IO.Put_Line ("Panel_grnd_eq.Initialize_Panel: " 

& "(View or Target) not in Collection."); 
raise; 

end Initialize__Panel; 


Create_Panel 


Subprogram BODY 


procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE .Tae_Wpt.WP TPREFERRED; 

Relative_Window 

: in XJWindows .Window 

:= X_Windows.Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE; Add declarations for Create_Panel ABOVE this line. 

begin -- Greate_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
TAE.Tae_Wpt.Wpt_NewPanel 

( Display__Id => Global.Default_Display_Id, 

Data_Vm => Info.Target, 

View_Vm => Info.View, 
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Relative_Window 
User_Context 
Flags 
Panel__Id 

else 

Text„IO.Put_Line ("Panel 
end if; 


=> Relative_Window, 

=> Info, 

=> Panel_State, 

=> Inf o . Panel__Id ); 

(grnd_eq) is already displayed."); 


-- MERGE NOTE: Add code for Create_Panel BELOW this line. 
-- MERGE NOTE: Add code for Create__Panel ABOVE this line. 


exception 


when TAE.UNINITIALIZED_PTR => 

Text_IO.Put_JLine ( "Panel__grnd_eq.Create_Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 


when TAE. TAE_FAIL => 

Text_IO.Put_Line ("Panel_grnd_eq.Create_Panel: 

& "Panel could not be created."); 
raise; 


end Create_Panel; 


Connect Panel 


-- Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

: in TAE .Tae__Wpt .Wpt_Flags 

: = TAE .Tae__Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows .Window 

:= X_Windows.Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Connect^Panel ABOVE this line. 

begin -- Connect_Panel 

if Info. Panel__Id = Tae .Null_Panel_Id then 
Create_Panel 

( Relative_Window => Relative_Window, 

Panel_State => Panel_State ); 

else 
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TAE.Tae_Wpt.Wpt_SetPanelState (Info.Panel_Id, Panel__State); 
end if; 

—* MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add code for Connect_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD^STATE => 

Text_IO. Put__Line ( "Panel_grnd_eq. Connect__Panel: " 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 


Destroy_Panel 


-- Subprogram BODY 


procedure Destroy_Panel is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy^Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_PANEL_ID => 

Text_IO. Put_Line ( " Panel__grnd_eq. Destroy_Panel; " 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt. ERASE JNULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Destroy_Panel; 
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begin EVENT HANDLERS 


grnd_eq_c anc e 1_E ven t 


-- Subprogram SPEC & BODY 


procedure grnd_eq_cancel_Event 

( Info : in TAE * Tae_Wpt.Event__Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE) ; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: grnd_eq_cancel 
— MERGE NOTE: Add declarations ABOVE this line for parm: grnd_eq_cancel 

begin -- grnd_eq_cancel_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel grnd_eq, parm grnd__eq_cancel: value = "); 
if Count > 0 then 

TAE. Tae_Vm.Vm_Extract_SVAL (Info. Parm__Ptr, 1, Value (1) ) ; 

Text_IO.Put_Line (Value(1)); 
else 

Text__IO. Put_Line ( "none " ) ; 
end if; 

-- grnd„eq_cancel 
Destroy_Panel; 

Panel_mbn_kps.Connect_Panel (TAE.Tae_Wpt.WPT_PREFERRED); 

MERGE NOTE: Add code BELOW this line for parm: grnd_eq_cancel. 

MERGE NOTE: Add code ABOVE this line for parm: grnd eg cancel. 

end grnd_eq_c anc el__E vent; 


grnd eg help_Event 


— Subprogram SPEC & BODY 


procedure grnd_eq_help_Event 

( Info : in TAE. Tae_Wpt. Event__Context_Ptr ) is 
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--I PURPOSE: 

_l EVENT HANDLER* Insert application specific information* 

--I 

--I NOTES: (none) 

Value : array (1**1) of String (1*.TAE*Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: grnd_eq_Jielp* 
MERGE NOTE: Add declarations ABOVE this line for parm: grnd_eq_help. 

begin -- grnd_eq_help_Event 

TAE * Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text__IO. Put ("Panel grnd_eq, parm grnd__eq_help: value = " ) ; 
if Count > 0 then 

TAE *Tae_Vm*Vm_Extract__SVAL (Info*Parm_Ptr, l t Value(l)); 

Text__IO * Put_Line (Value (1) ) ; 
else 

Text_IO * Put_Line ("none"); 
end if; 

-- grnd eg heIp 
Destroy_Panel; 

Panel_n±>n_kps.Connect_Panel (TAE.Tae_Wpt.WPT_PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: grnd_eq_help. 

— MERGE NOTE: Add code ABOVE this line for parm: grnd_eq_help. 

end grnd_eq_help_Event; 


grnd eg keyin__Event 


-- Subprogram SPEC & BODY 


procedure grnd eg keyin Event 

( Info : in TAE*Tae_Wpt * Event__Context_Ptr ) is 

— I PURPOSE: 

--| EVENT HANDLER* Insert application specific information. 

— 1 

--| NOTES: (none) 

Value : array (1..1) of String (1. .TAE. Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: grnd_eq__keyin. 
— MERGE NOTE: Add declarations ABOVE this line for parm: grnd_eq_keyin. 

begin --- grnd_eq_keyin_Event 
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TAE. Tae__Vm. Vtn_Extract_Count (Inf o . Parm_Ptr, Count); 

Text_IO.Put ("Panel grnd_eq, parin grnd_eq_keyin: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vta_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: qrnd eg kevin. 
-- MERGE NOTE: Add code ABOVE this line for parm: qrnd eg kevin. 

end grnd_eq_keyin_Event; 


qrnd eg next Event 


-- Subprogram SPEC & BODY 


procedure qrnd eg next Event 

( Info : in TAE. Tae_Wpt. Event_Context__Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

-“I 

— I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: grnd__eq__next. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: grnd__eq_next. 

begin -- grnd_eq_next_Event 

TAE.Tae__Vm.Vm_Extract_Count (Info.Parm„Ptr, Count) ; 

Text_IO.Put ("Panel grnd_eq / parm grnd_eq_next: value - "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(1)); 

Text_IO.Put_Line (Value(1)); 
else 

Text__IO. Put_Line ("none"); 
end if; 

-- qrnd eg next 
Destroy_Panel; 

Connect_Panel (TAE.Tae_Wpt,WPT_PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: qrnd eg next. 

-- MERGE NOTE: Add code ABOVE this line for parm: grnd_eq__next. 
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end grnd_eq_next_Event; 


grnd_eq__ok_JEvent 


Subprogram SPEC & BODY 


procedure grnd eg ok Event 

( Info : in TAE „ Tae__Wpt . E vent _Cont ext __Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--! 

--! NOTES: (none) 

Value : array (1..1) of String (1 TAE . Tae__Taeconf . STRINGS IZE) ; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: grnd eg ok. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: grnd_eq_ok. 

begin -- grnd eg ok Event 

TAE.Tae_Vm.Vm_Extract_Count (Info*Parm_Ptr, Count); 

Text_IO.Put ("Panel grnd„eq, parm grnd eg ok: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(1) ) ; 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- grnd eg ok 
Destroy_Panel; 

Panel_go „ Connect__Panel (TAE<, Tae_Wpt .WPT__P REFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: grnd_eq_ok» 

-- MERGE NOTE: Add code ABOVE this line for parm: grnd__eq_ok* 

end grnd_eq_ok_Event; 


— end EVENT HANDLERS 
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Dispatch__Item 


Subprogram BODY 


procedure Dispatch„Item 

( User_Context_Ptr : in TAE .TaeJWpt. Event_Context_Ptr ) is 
--I NOTES: (none) 
begin -- Dispatch_Item 

if TAE.Tae_Misc.s_equal ("gmd_eq_cancer , / User_Context_Ptr.Parm_Name) 

then 

grnd_eq_cancel__Event (User_Context„_Ptr) ; 
elsif TAE - Tae_Misc . s__equal ("grnd_eq_help", User_Context_Ptr * Parm_Name) 

then 

grnd_eq_help_Event (User_Context_Ptr) ; 
elsif TAE.Tae__Misc.s_equal ("qrnd eg keyin”, User_Context_Ptr.Parm_Name) 

then 

grnd_eq_keyin_Event (User_Context_Ptr); 
elsif TAE.Tae_Misc.s_equal ("grnd eg next", User_Context_Ptr.Parm_Name) 

then 

grnd_eqL_next_Event (User_Context_Ptr) ; 
elsif TAE * Tae__Misc . s_equal ("grnd_eq_ok" , User_Context_Ptr.Parm_Name) then 
grnd_eq_ok_Event (User_Context_Ptr); 
end if; 

end Dispatch_Item; 


— MERGE NOTE: Add additional code BELOW this line. 

-- MERGE NOTE: Add additional code ABOVE this line. 

end Panel_grnd_eq; 

__ *** TAE pi us code Generator version V5.3 [Merge Token: DO NOT DELETE.] 
-- *** File: pan_keyword__s. a 

-- *** Generated: Mar 4 14:14:09 1996 

*** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

__ *** Application: CAPS Software Base 


_ ************************************************************************** 

_ * 

* Panel_keyword -- Package SPEC 

_ * 

_ ************************************************************************** 

with TAE; 
with X__Windows; 

package Panel_keyword is 
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PURPOSE; 

This package encapsulates the TAE Plus panel: keyword 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching* For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided* 

It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation)* 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: keyword 

CHANGE LOG: 

4-Mar-96 TAE Generated 


Info : TAE «Tae__Wpt.Event__Context_Ptr; -- panel information 


Initialize_Panel 


-- Subprogram SPEC 


procedure Initialize_Panel 
( Collection_Read 

: in TAE. Tae_Co«Collection__Ptr ); 


-- TAE Collection read from 
-- resource file 


PURPOSE s 

This procedure initializes the Info.Target and Info.View for this panel 
EXCEPTIONS: 

TAE*UNINITIALIZED_PTR is raised if Collection_Read not initialized 
TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 
Collection_Read 

NOTES: (none) 


C r e a t e__P ane 1 


Subprogram SPEC 
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-- Flags sent to Wpt_NewPanel. 


procedure Create_Panel 
( Panel__State 

: in TAE.Tae_Wpt.Wpt_Flags 

: = TAE . Tae__Wpt. WPT^PREFERRED ; 

Relative_Window 

: in X_Windows .Window 

: = X_Windows.Null_Window ); 


-- Panel origin is offset from 
— this X Window. Null_Window 
-- uses the root window. 


PURPOSE: 

This procedure creates this panel object in the specified Panel__State 
and stores the panel Id in Info.Panel_Id. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE. TAE__FAIL is raised if the panel could not be created 

NOTES: (none) 


Connect__Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 

: in TAE. Tae_JWpt .Wpt_Flags 

: = TAE. Tae_Wpt. WPT__PREFERRED ; 

Relative_Window 

: in X_Windows.Window 

:= X_Windows.Null_Window ); 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


--I PURPOSE: 

--I If this panel doesn't exist, this procedure creates this panel object 
--I in the specifiec PanelState and stores the panel Id in 
--! Info.Panel_Id. 

"I If this panel does exist, it is set to the specified Panel_State. 

--I In this case, Relative_Window is ignored. 


EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create„Panel if the panel could not be 
created 

TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 


NOTES: 


(none) 
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Destroy__Panel 


-- Subprogram SPEC 


procedure Destroy_Panel; 


PURPOSE: 


--| This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view)* 


EXCEPTIONS: 

TAE*TaeJWpt,BAD_PANEL_ID is raised if Info.Panel_Id is an invalid id* 


NOTES: 


--j Info.Panel_Id is set to TAE *NULL_PANEL_ID , 
in any Wpt call until it is created again* 


and should not referenced 


Dispatch_Itexn 


Subprogram SPEC 


procedure Dispatch_Itern 
( User_Context_Ptr 

; in TAE * TaeJWpt * Event_Context_Ptr 


-- Wpt Event Context for a PARM 
); -- event * 


--I PURPOSE: 

--1 This procedure calls the Event Handler specified by User__Context_Ptr 


EXCEPTIONS: 


-~1 Application-specific 

— I 

--I NOTES: (none) 


end Panel_keyword; 

-- *** TAE Plus Code Generator version V5*3 [Merge Token: DO NOT DELETE*] 
-- *** File: pan_keyword_b * a 

__ *** Generated: Feb 20 14:23:54 1996 

__ *** Author : Ruey-Wen (Vincent) Hong 

*** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


* 
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* Panel_Jkeyword -- Package BODY 

_ * 

— ************************************************************************** 
with TAE; use TAE; 
with Text_IO; 
with Global; 

use Text_IO,Global; 

-- One "with" statement for each connected panel, 
with Panel__query; 
with Panel_op_no; 

-- MERGE NOTE: Add additional "with"s BELOW this line. 

— MERGE NOTE: Add additional ,, with"s ABOVE this line. 

package body Panel_keyword is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: keyword 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item’s valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 

keyword_cancel, keyword_help, keyword__list, keyword__ok, 
selected_kword 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line. 

20-Feb-96 TAE Generated 

MERGE NOTE: Add Change Log entries ABOVE this line. 
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-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 

--ADDED by RueyJWen (Vincent) Hong 951128 


kw_vec 
kwadd__vec 
kw_selected 
kw_list 
f ile__name 


s_vector(1..100):= (others=> new STRING(1..80)); 
s_vector(1..15) := (others-> new STRING(1..80)); 

String (1..80) := (others=>' '); 

file_type; 

String(1..7) := "kw__list"; 


number, 

index : integer := 1; 

Type_of_Wpt__Event : Tae .Wpt_E vent type ; 

UNKNOWN_WPT_EVENT : Exception; 


Initialize__Panel 


Subprogram BODY 


procedure Initialize__Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Xnitialize_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.Co_Find (Info.Collection, "keyword_v", Info.View); 

TAE. Tae__Co . Co__Find (Inf o. Collect ion, " keywor d_t" , Info.Target); 

MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO.Put_Line ("Panel„keyword.Initialize^Panel: " 

& "Collection_Read not initialized."); 
raise; 


182 







when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text_IO.Put_Line ("Panel_keyword.Initialize_Panel: 

& "(View or Target) not in Collection."); 
raise; 

end Initialize__Panel; 


Create_Panel 


Subprogram BODY 


procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.TaeJWpt .WPT_PREFERRED; 

Relative_Window 

: in X_Windows .Window 

: = X_Windows .Null_JWindow ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Create_Panel ABOVE this line. 

begin -- Create_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
TAE.Tae_Wpt.Wpt_NewPanel 


Display_Id 

=> 

Global. Def ault__Display_Id, 

Data_Vm 

=> 

Info.Target, 

View_Vm 

=> 

Info.View, 

Re lative_Window 

= > 

Relative_Window, 

User_Context 

=> 

Info, 

Flags 

=> 

Panel_State, 

Panel_Id 

=> 

Info.Panel_Id ); 


else 

Text_IO.Put__Line ("Panel (keyword) is already displayed."); 
end if; 

-- MERGE NOTE: Add code for Create_Panel BELOW this line. 

-- MERGE NOTE: Add code for Create_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_.PTR => 

Text__IO.Put_Line ( "Panel_keyword.Create_Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 
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when TAE.TAE_FAIL => 

Text__IO . Put_Line ( " Panel_keyword. Greate_Panel: 

& "Panel could not be created."); 
raise; 

end Greate_Panel; 


Connect_Panel -- Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae„Wpt.Wpt_Flags 

: = TAE.Tae_Wpt.WPTPREFERRED; 

Relative_Window 

: in X_Windows .Window 

;= X_Windows.Null_Window ) is 

--I NOTES; (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line. 
-- MERGE NOTE; Add declarations for Connect_Panel ABOVE this line. 

--ADDED 

Dummy:Boolean; 

L ;integer:=1; 

begin -- Connect_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
Create_Panel 

( Relative_Window => Relative_Window, 

Panel_State => Panel_State ); 

else 

TAE. Tae_Wpt. Wpt_Se t Panels tat e (Info . Panel_Id 7 Panel_State) ; 
end if; 

-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE; Add code for Connect_Panel ABOVE this line. 


— ADDED 


Global.strlen(library,L); 

Global.list_components(kw_list,file_name,kw_vec,number); 
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TAE. Tae__Wpt *Wpt_SetPanelState (Info.Panel_Id, Panel_State) ; 

TAE.Tae_Wpt-Wpt„SetStringConstraints(Info.Panel_Id,"keyword__list",taeint(numb 
er) , kw__vec) ; 

Dummy: =TAE. TaeJWpt. Wpt__Pending; 
system_call ("nn kw_list"); 


exception 

when TAE.TaeJWpt.BAD_STATE => 

Text_IO.Put_Line ("Panel_keyword.Connect_Panel: 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 


Destroy__Panel 


-- Subprogram BODY 


procedure Destroy_Panel is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_PANEL_ID => 

Text__IO.Put_Line ("Panel_keyword.Destroy_Panel; " 

Sc. n Info .Panel_Id is an invalid id."); 
raise; 

when TAE. Tae_Wpt. ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 

— Trap this exception and do nothing. 

null; 
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end Destroy_Panel; 


f- + + + + H 


-- begin EVENT HANDLERS 


keywor d__c anc e 1_Event 


-- Subprogram SPEC & BODY 


procedure keyword_cancel_Event 

( Info : in TAE.Tae_Wpt.Event„Context_Ptr ) is 

--j PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

“-I NOTES : (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAEoTaeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: keyword_cancel 
— MERGE NOTE: Add declarations ABOVE this line for parm: keyword_cance1 

begin -- keyword_cancel_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text__IO.Put ("Panel keyword, parm keyword_cancel: value = ") ; 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(1)); 

Text_IO. Put__Line (Value (1) ) ; 
else 

Text_IOo Put_Line ("none"); 
end if; 

-- keyword_cancel 
Destroy_Panel; 

Panel_query .Connect_Panel (TAE. Tae__Wpt. WPT_PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: keyword„cancel. 

-- MERGE NOTE: Add code ABOVE this line for parm: keyword_cancel„ 

end keyword_c anc e1_Event; 


keyword_help_Event 


Subprogram SPEC & BODY 
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procedure keyword_help_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: keyword_help. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: keyword_help. 

begin -- keyword_help_Event 

TAE. Tae_Vm. Vm__Ext ract_Count (Info. Parm_Ptr, Count) ; 

Text_IO.Put ("Panel keyword, parm keyword__help: value = ") ; 
if Count > 0 then 

TAE.Tae_Vm.Vtoi_Extract_SVAL (Info.Parm__Ptr, 1, Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- keyword__help 
Destroy_Panel; 

Pane Lquery.Connec t_Pane1 (TAE.Tae_Wpt.WPT_PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: keyword_help. 

-- MERGE NOTE: Add code ABOVE this line for parm: keyword_help. 

end keyword_help_Event; 


keyword_list_Event 


-- Subprogram SPEC & BODY 


procedure keyword_list_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--| EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1. .TAE. Tae__Taeconf . STRINGS IZE) ; 
Count : TAE.Taeint; 


187 







-- MERGE NOTE: Add declarations BELOW this line for parm; keyword_list. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: keyword_list. 

begin -- keyword_list_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel keyword, parm keyword_list: value = "); 
if Count > 0 then 

TAE.Tae_Vtn. Vln__Extract_SVAL (Info.Parm^Ptr, 1, Value(l)); 

Text__IO. Put__Line (Value (1) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: keyword__list. 

-- MERGE NOTE: Add code ABOVE this line for parm: keyword_list. 


--ADDED 


kw_selected(1..80):=Value(1)(1..80); 
kwadd_vec(index).all:=kw_selected; 


TAE.Tae_Wpt.Wpt_SetStringConstraints(Info.Panel_Id, "selected_kword",taeint(in 
dex) ,kwadd__vec) ; 

index := index + 1; 

end keyword_list_Event; 


keyword_ok__Event 


Subprogram SPEC & BODY 


procedure keyword_ok_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: keyword_ok. 
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-- MERGE NOTE: Add declarations ABOVE this line for panri: keyword__ok. 
begin -- keyword_ok_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel keyword, parm keyword_ok: value = "); 
if Count > 0 then 

TAE. Tae__Vfri. Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value (1) ) ; 

Text_IO * Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- keyword_ok 
Destroy_Panel; 

Panel_op_.no .Connect_Panel (TAE. Tae_Wpt.WPT__PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: keyword_ok. 

-- MERGE NOTE: Add code ABOVE this line for parm: keyword__ok. 

end keyword_ok_Event; 


selected_kword_Event 


-- Subprogram SPEC & BODY 


procedure selected_kword_Event 

( Info : in TAE * Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--1 EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: selected_kword. 
MERGE NOTE: Add declarations ABOVE this line for parm: selected__kword. 

begin -- selected__kword__Event 

TAE.Tae__Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel keyword, parm selected__kword: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1 , Value(l)); 

Text__IO. Put_Line (Value (1) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 
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-- MERGE NOTE: Add code BELOW this line for parm: selected_kword. 
-- MERGE NOTE: Add code ABOVE this line for parm: selected_kword. 

end selected_kword_Event; 


— end EVENT HANDLERS 


Dispatch„Item 


-- Subprogram BODY 


procedure Dispatch_Xtem 

( User_Context_Ptr : in TAE.TaeJWpt.Event_Context_Ptr ) is 
--I NOTES: (none) 
begin -- Dispatch_Item 

if TAE.Tae_Misc„s_equal ("keyword_cancel'■, User_Context_Ptr.Parm_Name) 

then 

keyword_cancel_Event (User_Context„Ptr); 
els if TAE. Tae__Misc„ s_equal ( "keyword__heIp " , User_Context_Ptr„ Parm_Name) 

then 

keyword__help„Event (User_Context_Ptr) ; 
elsif TAE.Tae_Misc.s_equal ("keyword_list", User__Context_Ptr.Pann_Name) 

then 

keyword_list_Event (User__Context__Ptr) ; 
elsif TAE.Tae_Misc.s_equal ("keyword_ok", User_Context__Ptr.Parm_Name) then 
keyword__ok_Event (User_Context__Ptr) ; 
elsif TAE.Tae_Misc.s_equal ("selected_kword", 

User_Context_Ptr.Parm_Name) then 

selected_kword_Event (User_Context_Ptr) ; 
end if; 

end Dispatch_Item; 


-- MERGE NOTE: Add additional code BELOW this line. 

MERGE NOTE: Add additional code ABOVE this line. 

end Panel_keyword; 

-- *** TAE Plus Code Generator version V5„3 [Merge Token: DO NOT DELETE *] 
-- *** File: pan_maintain_s.a 
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-- *** Generated; Mar 4 14:14:09 1996 
-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


************************************************************************** 

* 

* Panel_maintain -- Package SPEC 

* 

************************************************************************** 


with TAE; 
with XJWindows; 

package Panel_maintain is 


PURPOSE: 

This package encapsulates the TAE Plus panel: maintain 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 

It includes the Target and View (available after initialization) 
and the Panel__Id (available after creation) . 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file; 

The panel's name is changed (not title) 

For panel: maintain 


CHANGE LOG: 

4-Mar-96 TAE Generated 


Info : TAE.Tae_Wpt.Event_Context_Ptr; -- panel information 


Initialize_Panel 


-- Subprogram SPEC 


procedure Initialize_Panel 

( Collection_Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info.Target and Info.View for this panel 
--I 

--I EXCEPTIONS: 
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--I TAE.UNINITIALIZED_PTR is raised if Collection_Read not initialized 
TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 
--| Collection_Read 

—| NOTES: (none) 


Create_Panel 


-- Subprogram SPEC 


procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in XJWindows <, Window 

: = X_Windows.Null_Window ); 


-- Flags sent to Wpt_NewPanel. 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


PURPOSE: 


--| This procedure creates this panel object in the specified Panel__State 
--I and stores the panel Id in Info.Panel_Id. 


--[ EXCEPTIONS: 

--i TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
--| TAE.TAE_FAIL is raised if the panel could not be created 


NOTES s 


(none) 


Connect__Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
( Pane!_State 

: in TAE.TaeJWpt.Wpt_Flags 

: = TAE . Tae__Wpt. WPT__PREFERRED ; 

Relative_Window 

: in XJWindows.Window 

: = XJWindows.Null_Window ); 


-- Panel origin is offset from 
-- this X Window. NullJWindow 
-- uses the root window. 


--j PURPOSE: 

--I If this panel doesn't exist, this procedure creates this panel object 
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in the specifiec Panel_State and stores the panel Id in 
Info.Panel_Id. 

If this panel does exist, it is set to the specified Panel__State. 
In this case, RelativeJWindow is ignored. 


EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE. TAE_FAIL is raised from Create__Panel if the panel could not be 
created 

TAE. Tae_Wpt .BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 


NOTES: 


(none) 


Destroy_Panel 


-- Subprogram SPEC 


procedure Destroy_Panel; 


--I PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 


--| EXCEPTIONS: 

--I TAE.Tae_Wpt.BAD_PANEL__ID is raised if Info.Panel_Id is an invalid id. 


NOTES: 


--I Info.Panel_Id is set to TAE.NULL_PANEL_ID, and should not referenced 
--I in any Wpt call until it is created again. 


Dispatch_Itern 


Subprogram SPEC 


procedure Dispatch_Item 

( User__Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae__Wpt. Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User__Context__Ptr 

-- I 

— I EXCEPTIONS: 
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--I Application-specific 

— I 

--I NOTES: (none) 
end Panel_inaintain; 

__ *** tAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: pan_maintain_b.a 

-- *** Generated: Mar 4 14:14:09 1996 

__ *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


_ _ ************************************************************************** 

_ * 

* Panel_maintain Package BODY 

_ * 

************************************************************************** 

with TAE; use TAE; 
with Text_IO; 
with Global; 

-- One "with" statement for each connected panel. 

with Panel_backup_l; 

with Panel_sb_main; 

with Panel_create_l; 

with Panel_.de lete_l; 

with Panel_select_l; 

— MERGE NOTE: Add additional "with"s BELOW this line. 

-- MERGE NOTE: Add additional "with"s ABOVE this line. 


package body Panel_maintain is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTEs will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 


REGENERATED: 


The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: maintain 
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The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 
An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

maint_backup, maint_cancel, maint__create, maint_delete, 
maint__help, maint__select 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line* 

4-Mar-96 TAE Generated 

MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initialize_Panel 


Subprogram BODY 


procedure Initialize_Panel 
( Collection__Read 

: in TAE.Tae_Co .Collection__Ptr ) is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.Co„Find (Info.Collection, "maintainjv", Info.View); 

TAE.Tae_Co.Co_Find (Info.Collection, "maintain_t", Info.Target); 

-- MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text__IO.Put_Line ("Panel_maintain.Initialize_Panel: " 

& "Collection_Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER = > 
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Text_IO.Put_Line ("Panel__maintain.Initialize_Panel: 

& "(View or Target) not in Collection."); 
raise; 

end Initialize„Panel; 


Create_Panel 


Subprogram BODY 


procedure Create_Panel 
( Panel_State 

: in TAB.Tae_Wpt.Wpt_Flags 

:= TAE.TaeJWpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows .Window 

:= X_Windows.Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Create_Panel ABOVE this line. 


begin -- Create_Panel 


if Info.Panel_Id = Tae.Null 
TAE. Tae_Wpt. Wpt_NewPanel 
( Display_Id 
Data_Vm 
View_Vm 

Relative_Window 
User_Context 
Flags 
Panel__Id 


Panel_Id then 

=> Global.Default_Display_Id, 
=> Info.Target , 

=> Info.View, 

= > Relative__Window, 

=> Info, 

=> PaneInstate, 

=> Info.Panel_Id ); 


else 

Text_XO.Put__Line ("Panel (maintain) is already displayed 
end if; 


it 


-- MERGE NOTE: Add code for Create_Panel BELOW this line. 
-- MERGE NOTE: Add code for Create__Panel ABOVE this line. 


exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO. Put_Line ( "Panel_maintain.Create_Panel: " 

Sc "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE_FAXL => 
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Text__IO. Put_Line ( " Panelmaintain. Create_Panel: 

Sc "Panel could not be created,"); 
raise; 

end Create_Panel; 


Connect Panel 


-- Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

: in TAE * Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= X_Windows.Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect„Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 

begin -- Connect_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
Create_Pane1 

( Relative_Window => Relative_Window, 

Panel_State => Panel_State ); 

else 

TAE. Tae_Wpt.Wpt_SetPanelState (Info.Panel_Id, Panel__State) ; 
end if; 

-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add code for Connect_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_STATE => 

Text_IO. Put_Line ( " Panel_maintain. Connect_Panel: " 

Sc "Invalid panel state."); 
raise; 

end Connect_Panel; 
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Destroy„Panel 


-- Subprogram BODY 


procedure Destroy_Panel is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy__Panel BELOW this line. 

---- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

MERGE NOTE: Add code for Destroy_Panel BELOW this line, 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line, 

exception 

when TAE.Tae_Wpt.BAD„PANEL_ID => 

Text__IO. Put_Line ("Panel_maintain. Destroy_Panel: " 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE. Tae_Wpt. ERASE_NULL__PANEL => 

-- This panel has not been created yet, or has already been destroyed. 

-- Trap this exception and do nothing. 

null; 

end Destroy_Panel; 


-.-4.4. + + + + + + + + + + + + + + + 4.4. + + + + + + + + + + + + + + + + + + + + H 


— begin EVENT HANDLERS 


maint_backup_Event 


-- Subprogram SPEC & BODY 


procedure maint_backup_Event 

( Info : in TAE. TaeJWpt .Event_Context__Ptr ) is 

--I PURPOSE: 

--1 EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1.,TAE.Tae_Ta©conf.STRINGSIZE); 
Count : TAE.Taeint; 
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-- MERGE NOTE: Add declarations BELOW this line for parm: maintJbackup. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: maint_backup. 

begin -- maint_backup_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel maintain, parm maint__backup: value = ") ; 
if Count > 0 then 

TAE.TaeJVm.Vta_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO * Put_JLine (Value (1) ) ; 
else 

Text__IO. Put_Line ("none ") ; 
end if; 

-- maint_backup 
Destroy_Panel; 

Panel_backup_l .Connect_Panel (TAE.Tae_Wpt .WPT_P REFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: maint_backup. 

-- MERGE NOTE: Add code ABOVE this line for parm: maint_backup. 

end maint_backup_Event; 


ma int _c anc e 1__E vent 


-- Subprogram SPEC & BODY 


procedure maint_cancel_Event 

( Info : in TAE.Tae_Wpt*Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

— I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: maint_cancel. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: maint_cancel. 

begin -- maint_cancel_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel maintain, parm maint_cancel: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO. Put_Line (Value (1) ) ; 
else 
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Text_IO. Put_Line ("none " ) ; 
end if; 

-- maint_cancel 
Destroy_Panel; 

Panel_sb_main.Connect_Panel (TAE * Tae_Wpt.WPT_P REFERRED); 

-- MERGE NOTE: Add code BELOW this line for panri: maint_cancel. 
-- MERGE NOTE: Add code ABOVE this line for panri: maint_cancel. 

end maint_cancel_Event; 


xnaint_create_Event 


Subprogram SPEC & BODY 


procedure maint_create_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

—[ PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

— I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: maint_create. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: maint_create. 

begin -- maint_create__Event 

TAE.Tae_Vm.Vm_Extract__Count (Info.Parm_Ptr, Count) ; 

Text_IO.Put ("Panel maintain, parm maint_create: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1 , Value(1)); 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO. Put_Line ("none"); 
end if; 

-- maint_create 
Destroy__Panel; 

Panel_create_l .Connect_Panel (TAE. Tae_Wpt .WPT__PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: maint_create. 

-- MERGE NOTE: Add code ABOVE this line for parm: maint__create. 

end maint_create_Event; 
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ma int __de 1 e t e_E vent 


-- Subprogram SPEC & BODY 


procedure maint_delete_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--! 

— I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: maint_delete. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: maint_delete. 

begin maint_delete_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel maintain, parm maint_delete: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text„IO.Put_Line (Value(1)); 
else 

Text_IO. Put__Line ( "none " ) ; 
end if; 

-- maint_delete 
Destroy_Panel; 

Panel_delete_l.Connect_Panel (TAE.Tae_Wpt.WPT_PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: maint_delete. 

-- MERGE NOTE: Add code ABOVE this line for parm: maint_delete. 

end maint_de1ete_Event; 


maint_help_Event 


Subprogram SPEC & BODY 


procedure maint_help_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--j PURPOSE: 
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--I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

--- MERGE NOTE: Add declarations BELOW this line for parm: maint_help. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: maint__help. 

begin -- maint_help_Event 

TAE. Tae_Vm. Vin_Extract__CouHt (Info.Parm_Ptr, Count) ; 

Text_IO.Put ("Panel maintain, parm maint_help: value = "); 
if Count > 0 then 

TAE.Tae_Vm.VrnJExt rac t_SVAL (Info.Parm_Ptr, 1, Value (1) ) ; 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: maint_help. 

-- MERGE NOTE: Add code ABOVE this line for parm: maint_help. 

end maint_help_Event; 


maint_select_Event 


Subprogram SPEC & BODY 


procedure maint__select_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

—-I PURPOSE: 

--1 EVENT HANDLER. Insert application specific information. 

— I 

— I NOTES: (none) 

Value : array (1..1) of String (1. .TAE. Tae__Taeconf . STRINGS IZE) ; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: maint^select. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: maint_select. 

begin -- maint_select_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parxn_Ptr, Count) ; 

Text_IO.Put ("Panel maintain, parm maint_select: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(1)); 
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Text__IO. Put_Line (Value (1) ) ; 
else 

Text_IO * Put__Line ( "none " ) ; 
end if; 

-- maint_select 
Destroy_Panel; 

Panel_select_l .Connect_JPanel (TAE.Tae_Wpt.WPT_PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: maint_select. 
-- MERGE NOTE: Add code ABOVE this line for parm: maint_select. 

end maint_select_Event; 


— end EVENT HANDLERS 


DispatchJTtem 


-- Subprogram BODY 


procedure Dispatch_Item 

( User_Context_Ptr : in TAE.TaeJWpt.Event_Context_Ptr ) is 
--I NOTES: (none) 
begin -- Dispatch_Item 

if TAE.Tae_Misc.s_equal ("maint_backup", User_Context_Ptr.Parm_Name) then 
maint_backup_Event (User_Context_Ptr); 
elsif TAE *Tae_Misc . s_egual ("maint^ancel" , User_Context__Ptr. Parm__Name) 

then 

maint_cancel_Event (User_Context__Ptr) ; 
elsif TAE.Tae_Misc.s_egual ("maint__create", User_Context_Ptr.Parm_Name) 

then 

maint_create_Event (User_Context_Ptr); 
elsif TAE.Tae_Misc.s_equal ("maint_delete", User_Context_Ptr.Parm_Name) 

then 

maint_delete__Event (User_Context_Ptr) ; 
elsif TAE. Tae_Misc. s_equal ( u maint_help" , User_Context___Ptr. Parm_Name) then 
maint_help_Event (User__Context_Ptr) ; 
elsif TAE.Tae_Misc.s_equal ("maint_select", User_Context_Ptr.Parm_Name) 

then 

maint_select_Event (User_Context_Ptr); 
end if; 
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end Dispatch_Item; 


-- MERGE NOTE: Add additional code BELOW this line. 

-- MERGE NOTE: Add additional code ABOVE this line. 

end Panel_maintain; 

-- *** TAE Plus Code Generator version V5.3 [Merge Tokens DO NOT DELETE.] 
-- *** File: pan_mbn_kps_s.a 

-- *** Generated: Mar 4 14:14:09 1996 

*** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


* 

* Panel_mbn_kps -- Package SPEC 

* 


with TAE; 
with XJWindows; 

package Panel_ir£bn_kps is 


PURPOSE: 

This package encapsulates the TAE Plus panel: mbn_kps 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel *s Event_Context (Info) is provided. 

It includes the Target and View (available after initialization) 
and the Panel__Id (available after creation) • 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: mbn_kps 


CHANGE LOG: 

4-Mar-96 TAE 


Generated 


Info : TAE.Tae_Wpt•Event_Context_Ptr; -- panel information 


Initialize_Panel 


-- Subprogram SPEC 
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procedure Initialize_Panel 

( Collection_Read -- TAE Collection read from 

; in TAE.Tae_Co.Collection_Ptr ); -- resource file 


PURPOSE: 

This procedure initializes the Info.Target and Info.View for this panel 
EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised if Collection_Read not initialized 
TAE.Tae__Co.NO_SUCH_MEMBER is raised if the panel is not in 
Collection_Read 

NOTES: (none) 


Create_Panel 


-- Subprogram SPEC 


procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows .Window 

:= XJWindows .Null_Window ); 


-- Flags sent to Wpt_NewPanel. 


-- Panel origin is offset from 
this X Window, NullJWindow 
-- uses the root window. 


PURPOSE: 


--I This procedure creates this panel object in the specified Panel_State 
--I and stores the panel Id in Info.Panel_Id. 


EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised if 
TAE.TAE__FAIL is raised if the panel 


the panel is not initialized 
could not be created 


NOTES: (none) 


Connect_Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
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( Panel_State 

: in TAE. Tae_Wpt. Wpt__Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

: = X_Windows .Null__Window ); 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info.Panel_Id. 

If this panel does exist, it is set to the specified Panel_State. 

In this case, Relative_Window is ignored. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE. TAE__FAIL is raised from Create_Panel if the panel could not be 
created 

TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 

NOTES: (none) 


Destroy_Panel 


-- Subprogram SPEC 


procedure Destroy_Panel; 


--[ PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 


--I EXCEPTIONS: 

~~| TAE.Tae_Wpt.BAD_PANEL__ID is raised if Info. Panel__Id is an invalid id. 


NOTES: 


— I Info. Panel^Id is set to TAE . NULL_PANEL__ID, 
--I in any Wpt call until it is created again. 


and should not referenced 


Dispatch_Item 


Subprogram SPEC 
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procedure Dispatch_Item 

( User„Context_Ptr -- Wpt Event Context for a PARM 

: in TAE.Tae_Wpt.Event_Context_Ptr ); -- event* 


PURPOSE: 

This procedure calls the Event Handler specified by User_Context_Ptr 

EXCEPTIONS: 

Application-specific 

NOTES: (none) 


end Panel_mbn_kps; 

*** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE*] 
-- *** File: pan_mbn_kps_b.a 

-- *** Generated: Feb 23 13:21:26 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

*** Application: CAPS Software Base 


— ************************************************************************** 
_ * 

* Panel_mbn_kps -- Package BODY 

_ * 

— ************************************************************************** 
with TAE; use TAE; 
with Text_IO; 
with Global; 

-- One "with" statement for each connected panel., 
with Panel_sdetail; 
with Panel__grnd_eq; 

-- MERGE NOTE: Add additional "with"s BELOW this line. 

-- MERGE NOTE: Add additional "with"s ABOVE this line. 


package body Panel_jmbn_kps is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
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will contain your modifications. 


-I REGENERATED: 

-| The following WorkBench operations will cause regeneration of this file: 
-I The panel's name is changed (not title) 

- I For panel: mbn_kps 


The 


following WorkBench operations will also cause regeneration: 


An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

kps__keyin_f rom, kps_keyin_to, mbn_key in, mbn_kps_cancel, 

mbn_Jkps_help, mbn_kps__ok 


CHANGE LOG: 
MERGE NOTE: Add 
23-Feb-96 TAE 

MERGE NOTE: Add 


Change Log entries 
Generated 

Change Log entries 


BELOW this line. 
ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initialize_Panel 


Subprogram BODY 


procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE.TaeJWpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.Co_Find (Info.Collection, "mbn_kps_v". Info.View); 

TAE.Tae_Co.Co_Find (Info.Collection, "mbn_kps„t". Info.Target); 

-- MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 
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when TAE.UNINITIALIZED_PTR -> 

Text_IO * Put_Line ("Panel_mbn_kps.Initialize_Panel: 

& "Collection_Read not initialized."); 
raise; 

When TAE . Tae_Co . NO__SUCH__MEMBER => 

Text_IO.Put_Line ("Panel_mbn_kps.Initialize_Panel: 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 


Create_Panel 


-- Subprogram BODY 


procedure Create_Panel 
( Panel__State 

: in TAE.Tae_Wpt.Wpt_Flags 

: = TAE . Tae__Wpt. WPT_PREFERRED ; 

Relative_Window 

: in X_Windows .Window 

:= XJWindows.NullJWindow ) is 

--I NOTES: (none) 


-- MERGE NOTE: Add declarations for Create_Panel BELOW this 
-- MERGE NOTE: Add declarations for Create_Panel ABOVE this 


line. 
line. 


begin -- Create_Panel 


if Info.Panel_Id = Tae.Null 
TAE. Tae_JWpt. Wpt_NewPanel 
( Displayed 
Data_Vm 
View_Vm 

Relative_Window 

User_Context 

Flags 

Panel_Id 

else 

Text_IO. Put__Line ( "Panel 
end if; 


_Panel_Id then 

=> Global.Default_Display_Id, 
=> Info.Target, 

=> Info.View, 

= > RelativeJWindow, 

=> Info, 

= > Panel_State, 

=> Info.Panel_Id ); 

(mbn_kps) is already displayed 


>; 


MERGE NOTE: Add code for Create_Panel BELOW this line. 
MERGE NOTE: Add code for Create_Panel ABOVE this line. 


exception 
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when TAE.UNINITIALIZED_.PTR => 

Text_IO. Put__Line ( "Panel_mbn_kps . Create_Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE.TAE_FAIL => 

Text_IO.Put_Line ("Panel_mbn_kps.Create_Panel: " 

& "Panel could not be created."); 
raise; 

end Create__Panel; 


Connect_Panel 


- - Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt.Wpt_Flags 

:= TAE. Tae_Wpt.WPT_P REFERRED; 

RelativeJWindow 

: in X_Windows.Window 

2 = X_Windows.NullJWindow ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 

begin -- Connect_Panel 

if Info.Panel_Id = Tae.Null_Panel__Id then 
Create_Panel 

( RelativeJWindow => Relative_Window, 

Panel_State => Panel_State ); 

else 

TAE .TaeJWpt .Wpt_SetPanelState (Inf o. Panel_Id / Panel__State) ; 
end if; 

-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add code for Connect_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_STATE => 

Text_IO. Put_Line ( ,, Panel_mbn_kps . Connect_Panel: " 

& "Invalid panel state."); 
raise; 
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end Connect_Panel; 


Destroy__Panel 


-- Subprogram BODY 


procedure Destroy_Panel is 
--I NOTES: (none) 

MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin — Destroy_Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy__Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_PANEL_ID => 

Text__IO. Put_Line ( "Panel_mbn_kps . Destroy_Panel: 11 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt.ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Destroy_Panel; 


-- begin EVENT HANDLERS 


kps_keyin_from_Event 


-- Subprogram SPEC & BODY 


procedure kps_keyin__from_Event 

( Info : in TAE.TaeWpt.Event_Context_Ptr ) is 
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--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

— I NOTES: (none) 

Value : array (1..1) of TAE.Taefloat; 

Count : TAE.Taeint; 

--- MERGE NOTE: Add declarations BELOW this line for parm: kps_keyin_from. 
MERGE NOTE: Add declarations ABOVE this line for parm: kps_keyin_from. 

begin -- kps_keyin_from_Event 

TAE. Tae_Vin. Vm_Extract__Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel mbn_kps, parm kps_keyin__f rom: value = ") ; 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_RVAL (Info.Parm_Ptr, 1, Value(1)); 

Global.Taefloat_IO.Put (Value(l)); Text_IO.New_Line; 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: kps_keyin_from. 


-- ADDED by RUEY-WEN (VINCENT) HONG 960223 


Global.kps_from : = float(Value(1)); 


-- MERGE NOTE: Add code ABOVE this line for parm: kps_keyin__from. 
end kps„keyin__from_Event; 


kp s_keyin_t o_Event 


-- Subprogram SPEC & BODY 


procedure kps_keyin_to_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--| EVENT HANDLER. Insert application specific information. 

— I 

-— I NOTES: (none) 

Value : array (1..1) of TAE.Taefloat; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: kps_keyin__to. 
--- MERGE NOTE: Add declarations ABOVE this line for parm: kps_keyin_to. 
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begin -- kps„keyin_to_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text__IO.Put ("Panel mbn_kps, parm kps_keyin__to: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_RVAL (Info.Parm_Ptr, 1, Value(l)); 
Global.Taefloat_IO.Put (Value(l)); Text_IO.New_Line; 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: kps_keyin_to. 


— ADDED by RUEY-WEN (VINCENT) HONG 960223 


Global.kps_to := float(Value(1)); 

-- MERGE NOTE: Add code ABOVE this line for parm: kps_Jkeyin__to. 
end kps_keyin_to_Event; 


mbn_keyin_Event 


Subprogram SPEC & BODY 


procedure mbn_keyin_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

--1 NOTES: (none) 

Value : array (1..1) of TAE.Taeint; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: mbn_keyin. 
MERGE NOTE: Add declarations ABOVE this line for parm: mbn_keyin. 

begin -- mbn_keyin__Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel mbn_kps / parm mbn_keyin: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_IVAL (Info .Parm_Ptr, 1 , Value (1) ) ; 

Text_IO.Put_Line (TAE.Taeint'image(Value(1))); 
else 

Text_IO. Put__Line ("none " ) ; 
end if; 
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-- MERGE NOTE: Add code BELOW this line for parm: mbn_keyin. 


— ADDED by RUEY-WEN (VINCENT) HONG 960223 


Global.mbn := natural(Value(1)); 

-- MERGE NOTE: Add code ABOVE this line for parm: mbn_keyin. 
end mbn__keyin_Event; 


inbn__kp s_c anc e 1_Event 


-- Subprogram SPEC & BODY 


procedure mbn_kps__c anc el__E vent 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

--| NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAEeTaeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: mbn__kps__cancel\ 
-- MERGE NOTE: Add declarations ABOVE this line for parm: mbn_kps_cancel. 

begin -- mbn__kps_cancel_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel mbn_kps, parm mbn_kps_cancel: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm__Ptr, 1, Value (1) ) ; 
Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

--- mbn_kps_cancel 
Destroy_Panel; 

Panel_sdetail .Connect_Panel (TAE . Tae__Wpt.WPT_PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: mbn_kps__cancel. 

-- MERGE NOTE: Add code ABOVE this line for parm: mbn_kps_cancel. 

end mbn_kps__c anc el_Event; 
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mbn_kp s_help_Event 


-- Subprogram SPEC & BODY 


procedure mbn__kps_help_Event 

{ Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

MERGE NOTE: Add declarations BELOW this line for parm: mbn_kps_help. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: mbn_kps__help. 

begin -- mbn_kps_help_Event 

TAE. Tae__Vtoi.Vin_Extract_Count (Info. Parm_Ptr, Count) ; 

Text_IO.Put ("Panel mbn_kps / parm mbn_kps_help: value = "); 
if Count > 0 then 

TAE. Tae__Vm. Vm_Extract_SVAL (Inf o. Parm__Ptr, 1, Value (1) ) ; 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- mbn_kps_help 
Destroy_Panel; 

Panel_sdetail.Connect_Panel (TAE .Tae_Wpt .WPT_PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: mbn__kps_help. 

— MERGE NOTE: Add code ABOVE this line for parm: mbn__kps„help. 

end mbn_kps__help_Event; 


mbn_kp s_ok_Event 


-- Subprogram SPEC & BODY 


procedure mbn_kps__ok_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

— I EVENT HANDLER. Insert application specific information. 
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— I NOTES: (none) 


Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: mbn_kps_ok. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: mbn_kps__ok. 

begin --- mbn_kps__ok_Event 

TAE*Tae_VirwVm_Extract„Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel mbn__kps, parm mbn_kps__ok: value = ") ; 
if Count > 0 then 

TAE„Tae_Vm.Vm_Extract_SVAL (Info«Parm_Ptr, 1, Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- mbn_kps_ok 
Destroy_Panel; 

Panel_grnd__eg „ Connect_Pane 1 (TAE. TaeJWpt.WPT__PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: mbn_kps_ok* 

-- MERGE NOTE: Add code ABOVE this line for parm: mbn_kps_ok. 

end mbn_kps_ok_Event; 


-- end EVENT HANDLERS 


Dispatch_Itern 


Subprogram BODY 


procedure Dispatch_Item 

( User_Context_Ptr : in TAE .TaeJWpt«Event_Context_Ptr ) is 
--I NOTES: (none) 
begin -- Di spat ch__I tern 

if TAE.Tae_Misc „ s_equal ("kps_keyin_from", User_Context__Ptr. Parm_Name) 

then 

kps_keyin_from_Event (User_Context_Ptr); 
elsif TAE.Tae_Misc,s_egual ( "kps_keyin_to" , User__Context_Ptr.Parm_Name) 
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then 


kp s_key in__t o_Event {Us er_Context_Ptr); 
elsif TAE.Tae_Misc.s_equal ("inbn_keyin", User_Context_Ptr.Parm_Name) then 
mbn_keyin_Event (User_Context_Ptr) ; 
elsif TAE.Tae_Misc.s_equal ( M mbn_kps_cancel", 

User_Context_Ptr. Parm_Name) then 

inbn_kps_cancel_Event (User_Context_Ptr); 
elsif TAE. Tae_Misc . s_equal ( ,, mbn_kps_help", User_Context_Ptr. Parm__Name) 

then 

mbn_kps_help_Event (User_Context_Ptr) ; 
elsif TAE. Tae_Misc . s_equal ( "mbn_kps_ok M , User_Context_Ptr. Parm_Name) then 
iribn_kps_ok__Event (User__Context_Ptr) ; 
end if; 

end Dispatch_Item; 


-- MERGE NOTE: Add additional code BELOW this line. 

-- MERGE NOTE: Add additional code ABOVE this line. 

end Panel_mbn_kps; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 
-- *** File: pan_op_no_s.a 

— *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

— *** Application: CAPS Software Base 


* 

* Panel_op_no — Package SPEC 

* 


with TAE; 
with X_Windows; 

package Panel_op_.no is 


PURPOSE: 

This package encapsulates the TAE Plus panel: op_no 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 

It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 
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The panel's name is changed (not title) 
For panel: op__no 

CHANGE LOG: 

4-"Mar-9 6 TAE Generated 


Info : TAE.Tae_Wpt.Event_Context__Ptr; ~~ panel information 


Initialize_Panel 


--- Subprogram SPEC 


procedure Initialize__Panel 
( Collection_Read 

: in TAEoTae_COoCollection_Ptr ); 


-- TAE Collection read from 
resource file 


--I PURPOSE: 

--I This procedure initializes the Info.Target and Info.View for this panel 


—I EXCEPTIONS: 

— 1 TAE.UNINITIALIZED_PTR is raised if Collection_Read not initialized 
--| TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 
--1 Collection__Read 


NOTES: 


(none) 


Greate_Panel 


Subprogram SPEC 


procedure Greate_JPanel 
( Panel_State 

: in TAE. Tae_Wpt „Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= X_Windows*Null_Window ); 


-- Flags sent to Wpt_NewPanel. 


-- Panel origin is offset from 
-- this X Window. Null„Window 
-- uses the root window. 


--I PURPOSE: 

--j This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Info»Panel__Id. 


EXCEPTIONS: 
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--I TAE. UNINITIAL I ZED_PTR is raised if the panel is not initialized 
--I TAE.TAE_FAIL is raised if the panel could not be created 

— I 

— I NOTES: (none) 


Connect_Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

: = TAE . Tae_Wpt. WP ^PREFERRED ; 

Relative_Window 

: in X__Windows . Window 

:= X_Windows.Null_Window ); 


Panel origin is offset from 
-- this X Window, NullJWindow 
-- uses the root window. 


PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info. Pane l__Id. 

If this panel does exist, it is set to the specified Panel_State. 

In this case, Relative_Window is ignored. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE__FAIL is raised from Create_Panel if the panel could not be 
created 

TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 

NOTES: (none) 


Destroy_Panel 


Subprogram SPEC 


procedure Destroy_Panel; 


— I PURPOSE: 

— I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 


EXCEPTIONS: 
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-“I TAE.Tae_Wpt.BAD_PANEL_ID is raised if Info„Panel_Id is an invalid id. 

— I 

--I NOTES: 


--I Info.Panel__Id is set to TAE.NULL_PANEL_ID, and should not referenced 
--I in any Wpt call until it is created again. 


Di spat ch__I tern 


Subprogram SPEC 


procedure Dispatch_Item 
( User_Context_Ptr 

: in TAE. Tae_JWpt. Event__Context_Ptr 


-- Wpt Event Context for a PARM 
); -- event. 


— I PURPOSE; 

--I This procedure calls the Event Handler specified by User_Context_Ptr 


--I EXCEPTIONS: 

--! Application-specific 
--I 

--| NOTES: (none) 


end Panel_op_no; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: panopnob.a 

-- *** Generated: Mar 4 14:14:09 1996 

--- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

__ *** Application: CAPS Software Base 


_ ************************************************************************** 

_ * 

* Panel_op_no -- Package BODY 

„ * 

__ ************************************************************************** 

with TAE; use TAE; 
with Text_IO; 
with Global; 

-- One "with" statement for each connected panel, 
with Panel__keyword; 
with Panel^opdetail; 

MERGE NOTE: Add additional "with-s BELOW this line. 

-- MERGE NOTE: Add additional n with"s ABOVE this line. 

package body Panel_op__no is 
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NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: op_no 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 
An item’s name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 

keyin_op_no, op_no__cancel, op_no_help, op_no_label, 

op_no_ok, test_case_label, testcase_no 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line. 

4-Mar-96 TAE Generated 

MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initialize_Panel 


-- Subprogram BODY 


procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 
--I NOTES: (none) 
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-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Initialize_Panel 

Info : = new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE . Tae_Co. Co__Find (Inf o. Collect ion, "op_no_v ,, / Info.View) ; 

TAE.Tae_Co.Co_Find (Info.Collection, "op_no_t", Info.Target); 

-- MERGE NOTE; Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text__IO.Put_Line ("Panel_op_no.Initialize_Panel: " 

& "Collection_Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text_IO. Put__Line ("Panel_op_.no. Initialize_Panel: " 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 


Create__Panel 


Subprogram BODY 


procedure Create__Panel 
( Panel_State 

: in TAE.TaeJWpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= XJWindows.Null_Window ) is 

--1 NOTES: (none) 

-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Create_Panel ABOVE this line. 

begin -- Create_Panel 

if Info.Panel_Id = Tae .Null_JPanel_Id then 
TAE.Tae_Wpt.Wpt_NewPanel 

( Display_Id => Global .Def ault__Display_Id, 
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Data_Vm 

View__Vm 

Relative_Window 
User_Context 
Flags 
Panel_Id 

else 

Text_IO.Put_Line ("Pane1 
end if; 

-- MERGE NOTE: Add code for 
-- MERGE NOTE: Add code for 

exception 


=> Info.Target, 

=> Info.View, 

=> Re la t ive_Window, 

=> Info, 

= > Panel__State, 

=> Info.Panel_Id ); 

(op_no) is already displayed."); 


Create_Panel BELOW this line. 
Create__Panel ABOVE this line. 


when TAE.UNINITIALIZED_PTR => 

Text_IO.Put_Line ("Panel_op_no.Create_Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE FAIL = > 

Text_IO.Put_Line ("Panel_op_no.Create_Panel: 

& "Panel could not be created."); 
raise; 


end Create_Panel; 


Connect_Panel 


-- Subprogram BODY 


procedure Connect__Panel 
( Panel__State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE. Tae___Wpt. WPT_PREFERRED ; 

Re1ative_Window 

: in X_Windows.Window 

:= X__Windows .Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Connect__Panel ABOVE this line. 

begin -- Connect_Panel 

if Info. Panel__Id = Tae .Null_Panel_Id then 
Create__Panel 

( Relative_Window => Relative_Window, 
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Panel State 


=> Panel_State ); 


else 

TAE.Tae_Wpt.Wpt_SetPanelState (Info.Panel_Id, Panel_State); 
end if; 


-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 
-- MERGE NOTE: Add code for Connect_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_STATE => 

Text_IO. Put_Line ( " Panel_op_no. Connect_Panel: " 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 


Destroy_Panel 


Subprogram BODY 


procedure Destroy__Panel is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy„Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE„Tae_Wpt.BAD_PANEL_ID => 

Text_XO o Put__Line ( "Panel_op_no. Destroy__Panel: " 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt.ERASE_NULL„PANEL => 

-- This panel has not been created yet, or has already been destroyed. 

-- Trap this exception and do nothing. 

null; 

end Destroy_Panel; 
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-- begin EVENT HANDLERS 


keyin_op_no_Event 


-- Subprogram SPEC & BODY 


procedure keyin_op_no_JEvent 

( Info : in TAE. Tae_Wpt. Event_Context_Ptr ) is 

PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of TAE.Taeint; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: keyin_op_no. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: keyin__op_no. 

begin -- keyin_op__no__Event 

TAE.Tae_Vm.Vm__Extract_Count (Info.Parm_Ptr, Count) ; 

Text__IO.Put ("Panel op__no, parm keyin_op_no: value = “); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_IVAL (Info.Parm„Ptr, 1, Value(l)); 

Text_IO.Put_Line (TAE.Taeint 1 image(Value(1))); 
else 

Text_IO. Put__Line ( " none " ) ; 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: keyin__op_no. 

-- MERGE NOTE: Add code ABOVE this line for parm: keyin_op_no. 

end keyin_op_no_Event; 


°P_no__cancel_Event 


-- Subprogram SPEC & BODY 


procedure op_no_cancel_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

— I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 








--I 

—I NOTES: (none) 

Value : array (1..1) of String (L , TAE ,Tae__Taeconf * STRINGS IZE) ; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: op_no__cancel. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: op_no__cancel. 

begin -- op_no_cancel_Event 

TAE.Tae_Vm«Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel op_no, parm op_no_cancel: value = "); 
if Count > 0 then 

TAE. Tae_Vm. Vm__Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO * Put_Line (Value (1) ) ; 
else 

Text_IO„ Put__Line ( "none" ) ; 
end if; 

-- op_no_c anc e1 
Destroy_Panel; 

Panel_keyword.Connect_Panel (TAE .Tae__Wpt ,WPT_PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: op_no_cancel. 

MERGE NOTE: Add code ABOVE this line for parm: op_no_cancel. 

end op_no_cancel_Event; 


op_no_help_Event 


-- Subprogram SPEC & BODY 


procedure op_no_help_Event 

( Info : in TAE. Tae_JWpt„ Event _Context Ptr ) is 

-- i PURPOSE: 

--I EVENT HANDLER, Insert application specific information, 

— I 

— I NOTES: (none) 

Value : array (1..1) of String (1,, TAE. Tae__Taeconf . STRINGS IZE) ; 

Count : TAE.Taeint; 

MERGE NOTE: Add declarations BELOW this line for parm: op_no_help. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: op_no_help, 

begin -- op_no_help_Event 

TAE.Tae_Vm»Vm_Extract_Count (Info.Parm_Ptr, Count); 
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Text_IO.Put ("Panel op_no, parm op_no_Jhelp: value = "); 
if Count > 0 then 

TAE.Tae_JVm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text__IO. Put_Line (Value (1) ) ; 
else 

Text_IO. Put_Line ( "none" ) ; 
end if; 

-“ °P_no_help 
Destroy_Panel; 

Panel_keyword oConnect_Panel (TAE.Tae_Wpt.WPT_PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: op_no_help. 
-- MERGE NOTE: Add code ABOVE this line for parm: op_no_help. 

end op_no_help__Event; 


op_no_label_Event 


-- Subprogram SPEC & BODY 


procedure op_no_label„Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

-~l EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1. .TAE . Tae__Taeconf . STRINGS IZE) ; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: op_no_label. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: op__no_label. 

begin -- op_no_label_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel op_no, parm op_no_label: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO. Put__Line (Value (1) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: op_no_label. 

-- MERGE NOTE: Add code ABOVE this line for parm: op_no_label. 

end op_no__label_Event; 
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op_no„ok_Event 


-- Subprogram SPEC & BODY 


procedure op_no__ok__Event 

( Info : in TAE. Tae__Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

-- I EVENT HANDLER* Insert application specific information* 

— I 

--I NOTES: (none) 

Value : array (Id) of String (1. .TAE.Tae_Taeconf «STRINGSIZE) ; 
Count : TAE,Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parms op_no_ok. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: op__no_ok, 

begin -- op_no_ok„Event 

TAE,Tae__Vin.Vin_Extract__Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel op_no, parm op_no_ok: value = "); 
if Count > 0 then 

TAE.Tae__Vm*Vm__Ext r act_S VAL (Info.Parm_Ptr, 1 , Value(l)); 

Text„IO. Put__Line (Value(l)); 
else 

Text_IO * Put_Line ( "none " ) ; 
end if; 

- - op_no_ok 
Destroy_Panel; 

Panel_opdetail*Connect_Panel (TAE.Tae_Wpt«WPT_PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: op_no_ok* 

-- MERGE NOTE: Add code ABOVE this line for parm: op_no_ok. 

end op__no__pk_Event; 


test__case_label_Event 


-- Subprogram SPEC & BODY 


procedure test_case__label_Event 

( Info : in TAE. Tae__Wpt. Event_Context__Ptr ) is 
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--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: test__case_label 
-- MERGE NOTE: Add declarations ABOVE this line for parm: test_case_label 

begin -- test_case__label_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text__IO.Put ("Panel op_no, parm test_case_label: value = "); 
if Count > 0 then 

TAE.Tae__Vm.Vm__Extract__SVAL (Info.Parm_Ptr / 1, Value(l)); 

Text_IO.Put„Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: test_case_label. 

-- MERGE NOTE: Add code ABOVE this line for parm: test_case__label. 

end test_case__label_Event ; 


testcase_no_Event 


-- Subprogram SPEC & BODY 


procedure testcase_no_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of TAE.Taeint; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: testcase_.no. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: testcase_no. 

begin -- testcase_no_Event 

TAE .Tae__Vm.Vm_Extract_Count (Info. Parm_Ptr, Count) ; 

Text_IO.Put ("Panel op_no 7 parm testcase_no; value = "); 
if Count > 0 then 
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TAE. Tae_Vm. Vm_Extract_IVAL (Inf o , Parm__Ptr, 1, Value(l)); 
Text__IO. Put_Line (TAE .Taeint' image (Value (1) ) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: testcase_no. 
-- MERGE NOTE; Add code ABOVE this line for parm: testcase_no. 

end testcase_no_Event; 


-- end EVENT HANDLERS 


Dispatch_Itern 


-- Subprogram BODY 


procedure Dispatch_Xtem 

( User_Context__Ptr : in TAE. Tae_Wpt. Event_Context_Ptr ) is 
--I NOTES: (none) 
begin -- Dispatch_Itern 

if TAE <, Tae__Misc. s_equal ("keyin_op_no" , User_Context_Ptr. Parm_Naxne) then 
keyin_op_no_Event (User_Context_Ptr); 
elsif TAE o Tae_Misc * s_equal ( n op„no_cancel", User_Context__Ptr.Parm_Name) 

then 

op_no_cancel_Event (User_Context_„Ptr) ; 
elsif TAE.Tae_Misc *s_equal ( M op_no_help", User_Context_Ptr.Parm__Name) then 
op_no_help_Event (User_Context_Ptr); 
elsif TAE • Tae_Misc. s_equal ( "op no label" , User__Context_Ptr. Parm_Name) 

then 

op_no_label_Event (User_Context_Ptr); 
elsif TAE.Tae_Misc.s_equal ("op_no_ok”, User_Context_Ptr.Parm_Name) then 
op_no_ok_Event (User_Context_Ptr); 

elsif TAE oTae_Misc. s_equal ( "test__case__label u , User__Context_Ptr. Parm_Name) 
then 

test_case_label_Event (User_Context_Ptr); 
elsif TAE.Tae_Misc.s__equal ("testcase_no", User_Context_Ptr.Parm_Name) 

then 

testcase„no_Event (User_Context_Ptr); 
end if; 

end Di spat ch_I tem; 
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-- MERGE NOTE: Add additional code BELOW this line. 

-- MERGE NOTE: Add additional code ABOVE this line. 

end Panel_op_no; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

__ *** pile: pan_opdetail„_s .a 

-- *** Generated: Mar 4 14:14:09 1996 

__ *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

— *** Application: CAPS Software Base 

— ******************************************************■*************•**.***** 
_ * 

* Panel_opdetail — Package SPEC 

_ * 

— ************************************************************************** 


with TAE; 
with X_Windows; 


package Panel_opdetail is 


PURPOSE: 

This package encapsulates the TAE Plus panel: opdetail 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 

It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: opdetail 


CHANGE LOG: 

4-Mar-96 TAE 


Generated 


Info : TAE. Tae__Wpt.Event_Context_Ptr; -- panel information 


Initialize_Panel 


— Subprogram SPEC 
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TAE Collection read from 
resource file 


procedure Initialize„Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ); 


--I PURPOSE: 

--I This procedure initializes the Info.Target and Info.View for this panel 


EXCEPTIONS: 


--I TAE.UNINITIALIZED_PTR is raised if Collection^Read not initialized 
--| TAE.Tae„Co.NO_SUCH_MEMBER is raised if the panel is not in 
-- | Collection_JRead 


NOTES: 


(none) 


Create_Panel 


Subprogram SPEC 


procedure Create_Panel 
( Panel__State 

: in TAE.Tae_Wpt.Wpt_Flags 

: = TAE , Tae_Wpt. WPT__PREFERRED ; 

RelativeJWindow 

: in X_Windows.Window 

:= XJWindows.Null_Window ); 


-- Flags sent to Wpt_NewPanel. 


-- Panel origin is offset from 
~~ this X Window. NullJWindow 
uses the root window. 


PURPOSE: 

This procedure creates this panel object in the specified Panel__State 
and stores the panel Id in Info. Panel__Id. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 

NOTES: (none) 


Connect_Panel 


Subprogram SPEC 


procedure Connect_Panel 
( Panel__State 
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: in TAE.TaeJWpt .Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 


Relative_Window 

: in X_JWindows .Window 

:= X_Windows.Null_Window ); 


-- Panel origin is offset from 
-- this X Window. Null__Window 
-- uses the root window. 


PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info.Panel_Id. 

If this panel does exist, it is set to the specified Panel__State. 

In this case, Relative_Window is ignored. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 

NOTES: (none) 


Destroy_Panel 


-- Subprogram SPEC 


procedure Destroy_Panel; 


--I PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 


— I EXCEPTIONS: 

--I TAE.Tae_Wpt.BAD_PANEL_ID is raised if Info.Panel_Id is an invalid id. 


NOTES; 


— I Info.Panel_Id is set to TAE.NULL_PANEL„ID, and should not referenced 
--I in any Wpt call until it is created again. 


Dispatch_Item 


-- Subprogram SPEC 
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procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE.Tae__Wpt .Event__Context_Ptr ); -- event. 

— I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context__Ptr 
--I 

— I EXCEPTIONS: 

--| Application-specific 
--I 

--I NOTES: (none) 
end Panel_opdetail; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: pan_opdetail_b.a 

-- *** Generated: Feb 28 15:30:54 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

— *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


_ ************************************************************************** 

_ * 

* Panel_opdetail -- Package BODY 

_ * 

__ ************************************************************************** 

with TAE; use TAE; 
with Text_IO; 
with Global; 

use Text_io, Global; 


-- One "with" statement for each connected panel. 

with Panel_op__no; 

with Panel__sdetail; 

with Panel__opdetail; 

with Panel_jmbn_kps; 

MERGE NOTE: Add additional "with ,, s BELOW this line. 
-- MERGE NOTE: Add additional "with n s ABOVE this line. 


package body Panel__opdetail is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
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modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTEs will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: opdetail 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item’s valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 

keyin_op_name, opdetail_cancel, opdetail__getsig, opdetail__help, 

opdetail_next, opdetail_ok, profile_list 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line. 

28-Feb-96 TAE Generated 

MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


--ADDED by Ruey_Wen (Vincent) Hong 951128 


Type operator_type is record 

op_name : string(1..TAE.Tae_Taeconf.STRINGSIZE); 
profile pattern : String(1..TAE.Tae_Taeconf.STRINGSIZE); 
end record; 

type op_array is array(1..30) of operator_type; 

Operator : op_array; 

profile_vec : 

profileadd_vec : 
profile_selected : 
profile_list : 

profile_file__name : 

number, 

index : integer := 1; 

op__index : integer := 1; 


s_vector(1..100):= (others=> new STRING(1..80)); 
s_vector(1..15) := (others=> new STRING(1..80)); 

String (1..80) := (others=>' '); 

f ile__type; 

String(1..12) := "profile_list"; 
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InitializeJPanel 


Subprogram BODY 


procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 
--| NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Initialize__Panel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.Co_Find (Info.Collection, "opdetailjV", Info.View); 

TAE .Tae_Co .Co_Find (Info.Collection* "opdetailjt", Info.Target) ; 

-- MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for InitializeJPanel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text__IO. Put__Line ("Panel„opdetail. Initialize_Panel: " 

& "Collection__Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text__IO. Put__Line ( " Pane l__ppdet ail. Initialize_Panel: " 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 


Create_Panel 


-- Subprogram BODY 


procedure Greate__Panel 
( Panel__State 

: in TAE.Tae^Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 
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Relative_Window 

: in X_Windows .Window 

:= X_Windows.NullJWindow ) is 

--I NOTES: (none) 


-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Create__Panel ABOVE this line. 

begin -- Create_Panel 


if Info.Panel_Id = Tae.Null 
TAE. Tae_JWpt .Wpt_NewPanel 
( Display_Id 
Data_Vm 
View_Vm 

RelativeJWindow 

User_Context 

Flags 

Panel_Id 


Panel_Id then 

=> Global.Default_Display_Id, 
=> Info.Target, 

=> Info.View, 

=> Relative_Window, 

=> Info, 

=> Panel_State, 

=> Info.Panel_Id ); 


else 

Text_IO.Put_Line ("Panel (opdetail) is already displayed 
end if; 


) ; 


-- MERGE NOTE: Add code for Create_Panel BELOW this line. 
-- MERGE NOTE: Add code for Create__Panel ABOVE this line. 


exception 


when TAE.UNINITIALIZED_PTR => 

Text_IO.Put_Line ("Panel_opdetail.Create_Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 


when TAE.TAE_FAIL => 

Text__IO. Put_Line ( "Panel_opdetail .Create_Panel: 

& "Panel could not be created."); 
raise; 

end Create_Panel; 


Connect_Panel 


-- Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 
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RelativeJWindow 

: in X_Windows .Window 

:= X_Windows .Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_JPanel BELOW this line. 
-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 


—ADDED By RUEY-WEN HONG (VINCENT) 960228 


Dummy:Boo1ean; 

L :integer:=1; 


begin Connect_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
Great e_Pane1 

( RelativeJWindow => Relative_Window, 

Panel_State => Panel_State ); 

else 

TAE.Tae_Wpt.Wpt_SetPanelState (Info.Panel_Id, Panel_State); 
end if; 

-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add code for Connect_Panel ABOVE this line. 


— ADDED By RUEY-WEN HONG (VINCENT) 960228 
strlen(library,L); 

list__coxnponents (prof ile_list, prof ile_f ile__name, prof ile_vec, number) ; 

TAE.Tae_Wpt.Wpt_SetPanelState (Info.Panel_Id, Panel__State) ; 

TAE.TaeJWpt.Wpt_SetStringConstraints(Info.Panel_Id,"profile_list",taeint(numb 
er),profilejvec); 

Dummy: =TAE.Tae__Wpt .Wpt_Pending; 


exception 

when TAE•Tae_Wpt.BAD_STATE = > 

Text_IO.Put^Line ( " Pane l__opdet ail .Connect__Panel: 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 
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Destroy_Panel 


-- Subprogram BODY 


procedure Destroy_Panel is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_PANEL_ID => 

Text_IO.Put_Line ("Panel_opdetail.Destroy_Panel: " 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt.ERASE_NULL_PANEL = > 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Destroy_Panel; 


-- begin EVENT HANDLERS 


keyin„op__name_Event 


Subprogram SPEC & BODY 


procedure keyin__op_name_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 
— I 
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--! NOTES : (none) 


Value : array (1..1) of String (1. .TAE*Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: keyin_op_name. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: keyin_op__name* 

begin -- keyin_op_name_Event 

TAE*Tae__Vm* Vm_Extract_Count (Info . Parm„Ptr, Count) ; 

Text_IO*Put ("Panel opdetail, parm keyin__op_name: value = ") ; 
if Count > 0 then 


-- ADDED By RUEY-WEN HONG 

(VINCENT) 960228 

Value(1) := (others => ' 

•); 


TAE. Tae__Vm. Vm__Ext rac t_SVAL (Info. Parm„Ptr, 1, Value (1) ) ; 
Text __IO. Put_L ine (Value(l)); 
else 

Text_IO*Put_Line ("none"); 
end if; 


-- MERGE NOTE: Add code BELOW this line for parm: 
-- MERGE NOTE: Add code ABOVE this line for parm: 


keyin_op_name* 
keyin_op_name. 


-- ADDED By RUEY-WEN HONG (VINCENT) 960228 


Operator (op_index) *op__name ; = Value(l); 


end keyin_pp_jaame_Event ; 


opdetail_cancel_Event 


-- Subprogram SPEC & BODY 


procedure opdetail_cancel_Event 

( Info : in TAE * Tae_Wpt.Event_Context_Ptr ) is 

PURPOSE: 

--I EVENT HANDLER* Insert application specific information* 

--I 

--| NOTES: (none) 

Value : array (1**1) of String (1*.TAE*Tae_Taeconf.STRINGSIZE) ; 
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Count : TAE.Taeint; 


-- MERGE NOTE: Add declarations BELOW this line for parm: opdetail_cancel. 
” MERGE NOTE: Add declarations ABOVE this line for parm: opdetail_cancel. 

begin -- opdetail_cancel_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text__IO.Put ("Panel opdetail, parm opdetail__cancel: value = ") ; 
if Count > 0 then 

TAE. Tae_Vtn. Vm_Extract_SVAL (Inf o . Parm_Ptr, 1, Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put^Line ("none"); 
end if; 

— opdetail_cancel 
Destroy_Panel; 

Panel_op_no.Connect_Panel (TAE.Tae_Wpt.WPT_PREFERRED); 

MERGE NOTE: Add code BELOW this line for parm: opdetail__cancel. 

-- MERGE NOTE: Add code ABOVE this line for parm: opdetail_cancel. 

end opdetail_cancel__Event; 


opdet ai l__get s ig__Event 


-- Subprogram SPEC & BODY 


procedure opdetail_getsig_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

”~! EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1. .TAE .Tae__Taeconf . STRINGS IZE) ; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: opdetail_getsig. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: opdetail_getsig. 

begin -- opdetail_getsig_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel opdetail, parm opdetail_getsig: value = "); 
if Count > 0 then 
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— ADDED By RUEY-WEN HONG (VINCENT) 960228 


Value(1) := (others => ' ’); 


TAE * Tae_Vin * Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 


-- ADDED By RUEY-WEN HONG (VINCENT) 960228 


for J in l.*op_index loop 
text__io .new_line; 

text__io .put (Operator (J) .op_name) ; 
text_io.new_line; 

text_io.put(Operator(J).profile_pattern); 
end loop; 

op_index :- op_index + 1; 


-- ADDED By RUEY-WEN HONG (VINCENT) 960228 


for J in l..op_index loop 

for K in 1..TAE.Tae_Taeconf.STRINGSIZE loop 

case Operator (J) . prof ile__pattern (K) is 

when 'A' => 

If Global.Sig_Exist_Chk_Vec(l) = ”0" 
then 

Global.Sig_Keep_Vec(Global.skv_index) := "A"; 
Global.skv_index := Global„skv_index + 1; 
Global.Sig_Exist_Chk_Vec(1) := "1”; 

else 
Null; 
end if; 

when 1 B 1 => 

If 

Sig_JExist Chk__Vec (2) = "0" 

then 

Sig_Keep_Vec(skv_index) := "B"; 
skv_index := skv_index + 1; 

Sig__Exist_Chk_Vec (2) : = "1"; 

else 
Null; 
end if; 

when "C -> 
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If 

Sig_Exist__Chk_Vec (3) = "0" 
then 

Sig_Keep_Vec (skv__index) := "C" ; 
skv_index := skv_index + 1; 
Sig_Exist_Chk_Vec(3) := "l"; 

else 
Null; 
end if; 

when ' D' => 

If 

Sig_Exist_Chk_Vec(4) = "0" 
then 

Sig_Keep_Vec(skv_index) := "D"; 
skv_index := skv_index + 1; 
Sig_Exist_Chk_Vec(4) := "1"; 

else 
Null; 
end if; 

when 1 E 1 => 

If 

Sig_Exist_Chk_Vec(5) = "0” 
then 

Sig_Keep_Vec(skv_index) := "E" ; 
skv_index := skv__index + 1; 
Sig_Exist_Chk_Vec(5) := "1"; 

else 
Null; 
end if; 

when 'F 1 => 

If 

Sig_Exist_Chk_Vec(6) = "0" 
then 

Sig_Keep_Vec(skv_index) := "F"? 

skv_index := skv_index +1; 
Sig_Exist_Chk__Vec (6) := "1"; 

else 
Null; 
end if; 

when others => Null; 

end case; 
end loop; 
end loop; 

-- opdetail_getsig 

Panel_sdetail.Connect_Panel (TAE. Tae_Wpt .WPT^PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: opdetail_getsig 
-- MERGE NOTE: Add code ABOVE this line for parm: opdetail_getsig 

end opdetail__getsig_Event; 
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opdetail_help_Event 


Subprogram SPEC & BODY 


procedure opdetail__help__Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

--| NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: opdetail_help. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: opdetail_help. 

begin -- opdetail_help_Event 

TAE.Tae_vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel opdetail, parm opdetail_help: value = ”); 
if Count > 0 then 

TAE. Tae_Vm. Vm_Ext r ac t__SVAL (Inf o . Pann_Ptr, 1, Value(l)) ; 

Text_IO.Put_Line (Value(1)); 
else 

Text„IO.Put_Line ("none"); 
end if; 

-- opdetail_help 
Destroy_Panel; 

Panel_op_no.Connect_Panel (TAE.Tae_Wpt .WPT_PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: opdetail__help. 

---- MERGE NOTE: Add code ABOVE this line for parm: opdetail_help. 

end opdetail_help_Event; 


opdet ail_next_Event 


Subprogram SPEC & BODY 


procedure opdetail_next_Event 

( Info : in TAE.Tae_Wpt.Event__Context_Ptr ) is 
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--I PURPOSE: 

--| EVENT HANDLER, Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: opdetail_next. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: opdetail_next. 

begin -- opdetail_next_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel opdetail, parm opdetail_next: value = "); 
if Count > 0 then 

TAE.Tae_Vra.Vm_J3xtract_SVAL (Inf o. ParcrMPtr, 1, Value(l)); 

Text__IO.Put_Line (Value(1)); 
else 

Text_IO. Put__Line ( "none" ) ; 
end if; 

-- opdetail„next 
Destroy_Panel; 

Connect_Panel (TAE. Tae__Wp t.WPT_PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: opdetail_next. 

-- MERGE NOTE: Add code ABOVE this line for parm: opdetail_next. 

end opdet ail_next_Event; 


opde t a i l__ok_E vent 


-- Subprogram SPEC & BODY 


procedure opdetail_ok_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--| PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: opdetail_ok. 
MERGE NOTE: Add declarations ABOVE this line for parm: opdetail„ok. 

begin -- opdetail_ok_Event 
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TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel opdetail, parm opdetail__ok: value = " ) ; 
if Count > 0 then 

TAE .Tae_Vm. Vm_Extract__SVAL (Inf o . Parm_Ptr, 1 , Value(l)); 
Text_IO. Put__Line (Value (1) ) ; 
else 

Text_IO•Put_Line ("none"); 
end if; 

-- opdetail_ok 
Destroy_Panel; 

Panel__mbn_kps . Connect_Panel (TAE. Tae__Wpt.WPT_PREFERRED) ; 

-- MERGE NOTE; Add code BELOW this line for parm: opdetail_ok. 
-- MERGE NOTE: Add code ABOVE this line for parm: opdetail_ok. 

end opdetail__ok_Event; 


profile_list_Event 


-- Subprogram SPEC & BODY 


procedure profile_list_Event 

( Info : in TAE„Tae_Wpt„Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

-~| NOTES: (none) 

Value : array (1..1) of String (1..TAE„Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: profile__list. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: profile_list. 


--ADDED By RUEY-WEN HONG (VINCENT) 960228 


S_Value : TAE.s_vector(1••1) ; 


begin -- prof ile_list__Event 

TAE.TaeJVm.Vm_Extract_Count (Info.Parm_Ptr, Count) ; 
Text_IO.Put ("Panel opdetail, parm profile_list: value = "); 
if Count > 0 then 

TAE * Tae_Vm. Vfn_Extract__SVAL (Info • Parm_Ptr, 1 , Value(l)); 
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Text_IO. Put_Line (Value (1) ) ; 
else 

Text_IO.Put_Line (“none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: profile_list. 
-- MERGE NOTE: Add code ABOVE this line for parm: prof ile__list. 


--ADDED By RUEY-WEN HONG (VINCENT) 960228 


profile_selected(1..80):=Value(1)(1..80); 
profileadd_vec(index).all:=profile_selected; 

TAE. Tae_Wpt .Wpt__PanelMessage (map__pro_display, "Test" ) ; 

TAE.Tae_Wpt .Wpt_ParmReject (Info . Panel_Id, "map_pro_di splay" , "Test") ; 
TAE. Tae_Wpt .Wpt_Set String (Info. Panel_Id, "map_pro__display", "Test") ; 
TAE. Tae__Wpt .Wpt_SetStringConstraints ( 

Info.Panel_Id,"selected_sop",taeint(index),profileadd_vec); 
index := index + 1; 

S_Value(l) := new String (1..TAE.Tae_Taeconf.STRINGSIZE); 

S_Value(1).all := Value(1); 

TAE.TAE_Vm.Vm_Set Str ing__Vec(Info.target, "map_pro_di splay", 1, S_Value, 
TAE. TAE_Vm. P_Update) ; 

TAE. TAE_Wpt.Wpt_ParmUpdate (Info. Panel_Id, "map_pro_display" ) ; 


-- ADDED 


Operator(op index).profile pattern := Value(l); 


end profile_list_Event; 


— end EVENT HANDLERS 


Dispatch_Item 


-- Subprogram BODY 


procedure Dispatch_Item 

( User„Context_Ptr : in TAE.Tae_Wpt.Event_Context_Ptr ) is 
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--I NOTES: (none) 


begin -- Dispatch_Itexn 

if TAE « Tae_Misc * s__equal ( "keyin_op_name" , User__Context_Ptr«Parxn_Name) then 
keyin_op_name_Event (User_Context_Ptr) ; 
elsif TAE.Tae_Misc * s__equal ( u opdetail_cancel" , User_Context„Ptr. Pam_Name) 
then 

opdetail_cancel_Event (User_Context_Ptr); 
elsif TAE . Tae_Misc „ s__equal ( "opdetail^getsig" , User__Context_Ptr .Parm_Name) 
then 

opdetail__getsig„Event (User__Context_Ptr) ; 
elsif TAE * Tae_Misc *s_equal ( M opdetail_help u , User_Context_Ptr.Parm_Name) 

then 

opdetail_help_Event (User_Context_Ptr); 
elsif TAE. Tae_Misc * s_equal ( "opdetail__next", User_Context_Ptr. Parm_Naine) 

then 

opdetail_next_Event (User_Context_Ptr) ; 
elsif TAE.Tae_Misc.s_equal ("opdetai^ok", User_Context_Ptr.Parm_Name) 

then 

opdetail_ok_Event (User__Context_Ptr) ; 
elsif TAE«Tae_Misc »s_equal ( "prof ile_list" , User__Context__Ptr. Parm_Name) 

then 

prof ile_list__Event (User_Context_Ptr) ; 
end if; 

end Dispatch_Xtexn; 


— MERGE NOTE: Add additional code BELOW this line„ 

-- MERGE NOTE: Add additional code ABOVE this line, 

end Panel_opdetail; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE*] 
-- *** File: pan„query_s•a 

— *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


************************************************************************** 

* 

* Panel_query -- Package SPEC 

* 

************************************************************************^* 


with TAE; 
with X_Windows; 

package Panel_query is 

--I PURPOSE: 

--! This package encapsulates the TAE Plus panel: query 
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These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event__Context (Info) is provided. 

It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: query 


CHANGE LOG: 

4-Mar-96 TAE 


Generated 


Info : TAE.Tae_Wpt.Event_Context_Ptr; -- panel information 


Initialize_Panel 


-- Subprogram SPEC 


procedure Initialize_Panel 

( Collection_Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); -- resource file 


~-| PURPOSE: 

--I This procedure initializes the Info.Target and Info.View for this panel 


--I EXCEPTIONS: 

--1 TAE.UNINITIALIZED_PTR is raised if Collection_Read not initialized 
-“I TAE.Tae_Co.NO_SUCH__MEMBER is raised if the panel is not in 
-- ! Collection_Read 


NOTES: 


(none) 


Create_Panel 


-- Subprogram SPEC 


procedure Create_Panel 
( Panel__State 


-- Flags sent to Wpt_NewPanel. 
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: in TAEoTae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 


Relative_Window 

: in X_Windows .Window 

:= X_Windows.Null_Window ); 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


PURPOSE: 

This procedure creates this panel object in the specified Panel__State 
and stores the panel Id in Info. Panel__Id. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 

NOTES: (none) 


Connect Panel 


Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 

• in TAE oTae_Wpt .Wpt__F lags 

:= TAE.Tae_Wpt. WPT_PREFERRED; 


Re lative_Window 

: in X_Windows-Window 

:= X_Windows .Null_Window ); 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root windox^. 


PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info.Panel_Id. 

If this panel does exist, it is set to the specified Panel_State. 

In this case, Relative_Window is ignored. 

EXCEPTIONS: 

TAE.UNINXTIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 

NOTES: (none) 
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Destroy_Panel 


-- Subprogram SPEC 


procedure Destroy_Panel; 


--| PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
— I associated panel object (not the target and view). 


EXCEPTIONS: 

TAE.Tae_Wpt.BAD_PANEL_ID is raised if Info.Panel_Id is an invalid id. 


NOTES: 

Info.Panel_Id is set to TAE.NULL_PANEL_ID, and should not referenced 
in any Wpt call until it is created again. 


Dispatch_Item 


-- Subprogram SPEC 


procedure Dispatch_Item 

( User_Context__Ptr -- Wpt Event Context for a PARM 

: in TAE.Tae_Wpt.Event_Context_Ptr ); -- event. 


PURPOSE: 

This procedure calls the Event Handler specified by User_Context_Ptr 


--| EXCEPTIONS: 

| Application-specific 
— I 

--I NOTES: (none) 


end Panel_query; 

__ *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: pan_query_b.a 

-- *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

__ *** Application: CAPS Software Base 


* 

* Panel_query --- Package BODY 

* 
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with TAE; use TAE; 
with Text_IO; 
with Global; 

-- One "with"' statement for each connected panel. 
with Panel_sb_main; 
with Panel_keyword; 

-- MERGE NOTE: Add additional "with M s BELOW this line. 
-- MERGE NOTE: Add additional "with"s ABOVE this line. 


package body Panel_query is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event n . 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: query 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 
An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 

profile_label, query_cancel, query_help, query__import, 

query_manua1 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line. 

4-Mar-96 TAE Generated 

MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 
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Initializ e__Pane 1 


-- Subprogram BODY 


procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co*Collection_Ptr ) is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize__Panel BELOW this line. 

— MERGE NOTE: Add declarations for Initialize_JPanel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.Co_Find (Info.Collection, "query_v", Info.View); 

TAE.Tae_Co.Co_Find (Info.Collection, "query_t M , Info.Target); 

-- MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text__IO.Put_Line ( "Panel_query.Initialize_Pane 1: “ 

& "Collection_Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text__IO. Put__Line ( "Panel_query. Initialize_Panel: " 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 


Create_Panel 


-- Subprogram BODY 


procedure Create_Panel 
( Panel__State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt. WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 
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:= X_Windows.Null_Window ) is 
—i NOTES: (none) 

-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Create_Panel ABOVE this line. 

begin -- Create_Panel 

if Info.Panel_Id = Tae .Null__Panel_Xd then 
TAE.Tae_Wpt-Wpt_NewPanel 


Displayed 

= > 

Global .Default_Display__: 

Data_Vm 

= > 

Info.Target, 

View_Vln 

= > 

Info.View, 

Relative_Window 

= > 

Re1ative_Window, 

User_Context 

= > 

Info, 

Flags 

=> 

Panel_State, 

Panel^Id 

= > 

Info. Panel__Id ); 


else 

Text_XO.Put_Line ("Panel (query) is already displayed."); 
end if; 

-- MERGE NOTE: Add code for Create__Panel BELOW this line. 

-- MERGE NOTE: Add code for Create_Panel ABOVE this line. 

exception 

when TAE .UNINITIALIZED__PTR => 

Text_IO. Put__Line ("Panel_query. Create__Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE.TAE_FAXL => 

Text_IO.Put_Line ("Panel_query.Create_Panel: " 

& "Panel could not be created."); 
raise; 

end Create_Panel; 


Connect_Panel 


-- Subprogram BODY 


procedure Connect_Panel 
( Panel„State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X__Windows. Window 
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:= X_Windows .Null__Window ) is 
— I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line, 

-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 

begin -- Connect_Panel 

if Info.Panel_Id = Tae .Null_Panel__Id then 
Create_Panel 

( Relative_Window => Relative__Window, 

Panel_State => Panel_State ); 

else 

TAE.Tae__Wpt .Wpt_SetPanelState (Info. Panel_Id, Panel_State); 
end if; 

-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add code for Connect_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_STATE => 

Text_IO.Put_Line ("Panel_query.Connect_Panel: " 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 


Destroy_Panel 


Subprogram BODY 


procedure Destroy_Panel is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy__Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy__Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE. Tae_Wpt.Wpt__PanelErase (Info. Panel_Id) ; 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_PANEL_ID => 
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Text_IO. Put_Line ( "Panel_query. Destroy_Panel: " 

& "Inf o *Panel__Id is an invalid id*"); 
raise; 

when TAE * Tae_Wpt * ERASE_NULL__PANEL => 

-- This panel has not been created yet, or has already been destroyed* 

-- Trap this exception and do nothing* 

null; 

end Destroy_Panel; 


-- begin EVENT HANDLERS 


profile_label_Event 


Subprogram SPEC & BODY 


procedure prof ile_label__Event 

( Info : in TAE. Tae_Wpt .Even t_Context_Ptr ) is 

--I PURPOSE: 

— I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES; (none) 

Value : array (1**1) of String (1*.TAE*Tae_Taeconf* STRINGSIZE); 

Count : TAE * Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: profile_label. 
--- MERGE NOTE: Add declarations ABOVE this line for parm: profile_label. 

begin — profile_label_Event 

TAEoTae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel query, parm profile_label: value = "); 
if Count > 0 then 

TAE.Tae_Vm*Vm_Extract__SVAL (Info*Parm_Ptr, 1, Value (1) ) ; 

Text_IO. Put_JLine (Value (1) ) ; 
else 

Text_IO. Put_Line ("none"); 
end if; 

--- MERGE NOTE: Add code BELOW this line for parm: prof ile„label * 

-- MERGE NOTE: Add code ABOVE this line for parm: profile_label* 

end profile__label_Event ; 
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querY—Cancel_Event 


-- Subprogram SPEC & BODY 


procedure query__cancel_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

— I EVENT HANDLER* Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1. .TAE. Tae__Taeconf. STRINGS IZE) ; 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: query_cancel* 
-- MERGE NOTE: Add declarations ABOVE this line for parm: query_cancel. 

begin — query_cancel_Event 

TAE.Tae_Vin.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel query, parm query_cancel: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(1)); 

Text_IO. Put__Line (Value (1) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- query_cancel 
Destroy_Panel; 

Panel_sb_main.Connect_Panel (TAE.Tae_Wpt .WPT_PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: query_cancel. 

-- MERGE NOTE: Add code ABOVE this line for parm: query_cancel. 

end query_cancel_Event; 


query_help_Event 


-- Subprogram SPEC & BODY 


procedure query_help__Event 

( Info : in TAE. Tae_Wpt. Event__Context_Ptr ) is 

-*-! PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 
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--I NOTES: (none) 


Value : array (1..1) of String (L .TAE.Tae__Taeconf .STRINGSIZE) ; 

Count : TAE * Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: query_help. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: query_help. 

begin query_help__Event 

TAE.Tae__Vm„Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel query, parm queryhelp: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm„Extract_SVAL (Info.Parm_Ptr, 1 , Value(l)); 

Text_IO* Put_Line (Value(1) ) ; 
else 

Text_IO . Put_Line ("none"); 
end if; 

-- query__help 
Destroy_Panel; 

Panel_sb__main.Connect_Panel (TAE »Tae_Wpt,WPT_PREFERRED); 

MERGE NOTE: Add code BELOW this line for parm: query_help. 

-- MERGE NOTE: Add code ABOVE this line for parm: query__help* 

end query_help_Event; 


query__import__Event 


Subprogram SPEC & BODY 


procedure query_import_Event 

( Info : in TAE. Tae_Wpt. Event_Context__Ptr ) is 

— I PURPOSE: 

--1 EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: query_import. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: query __import. 

begin -- query_import_Event 

TAE.Tae__Vm.Vm_Extract_Count (Info „ Parm__Ptr, Count) ; 
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Text__IO.Put ("Panel query, parm query__import: value = "); 
if Count > 0 then 

TAE.Tae_Vtn.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(1)); 
else 

Text__IO. Put_Line ( "none " ) ; 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: query_import. 
-- MERGE NOTE: Add code ABOVE this line for parm: query_import. 

end query_import_Event; 


queryjmanual_Event 


-- Subprogram SPEC & BODY 


procedure query_manual_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

— I NOTES: (none) 

Value : array (1..1) of String (1TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: query_manual. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: query__manual. 

begin -- query_manual__Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel query, parm query_manual: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- query_manual 

Connect_Panel (TAE.TaeJWpt.WPT_INVISIBLE); 

Panel_keyword.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 

-- MERGE NOTE: Add code BELOW this line for parm: query_manual. 

-- MERGE NOTE: Add code ABOVE this line for parm: query_manual. 

end query_manual__Event; 
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end EVENT HANDLERS 


Dispatch_Item 


Subprogram BODY 


procedure Dispatch_Item 

( User_Context__Ptr : in TAE. Tae_Wpt „ Event_Context_Ptr ) is 
--I NOTES: (none) 
begin -- Dispatch_Item 

if TAE«,Tae_Misc . s_equal ( "prof ile_label" , User_Context_Ptr. Parm_Name) then 
prof ile__label_Event (User_Context_Ptr) ; 
elsif TAE <,Tae_Misc. s_equal ( n query_cancel" , User__Context__Ptr. Parm_Name) 

then 

query_cancel_Event (User_Context__Ptr) ; 
elsif TAE«Tae_Misc. s^eqnal ("query_help", User„Context_Ptr .ParinJName) then 
query_help_Event (User_Context_Ptr); 
elsif TAE. Tae_Misc. s_equal ( "query„import" , User_Context_Ptr „ Parm_Name) 

then 

query_import_Event (User_Context_Ptr) ; 
elsif TAE<, Tae_Misc . s_equal ("query^anual", User_Context_Ptr. Parm__Name) 

then 

query__manual_Event (User_Context_Ptr) ; 
end if; 

end Dispatch_Item; 


-- MERGE NOTE: Add additional code BELOW this line* 

-- MERGE NOTE: Add additional code ABOVE this line, 

end Panel_query; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE *] 
-- *** File: pan„sb_main_s.a 

*** Generated: Mar 4 14:14:09 1996 

-- ** * Author : Ruey-Wen (Vincent) Hong 

— *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


*#*#*******#****#**********#*#**###&&*#*##**&**#***#*********:*** tfejS?#*#***** 
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* Panel_sb_main -- Package SPEC 

* 

*********±****************±±i'*±*******************±±****ic***±*±ic*ic**i'**ie** 


with TAE; 
with XJWindows; 


package Panel_sb_main is 


PURPOSE: 

This package encapsulates the TAE Plus panel: sb_main 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 

It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation), 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: sb_main 


CHANGE LOG: 
4-Mar-96 


TAE 


Generated 


Info : TAE ,Tae__Wpt ,Event_Context_Ptr; -- panel information 


Initialize__Panel 


Subprogram SPEC 


procedure Initialize_Panel 
( Collection_Read 

: in TAE,Tae_Co.Collection_Ptr ); 


-- TAE Collection read from 
-- resource file 


PURPOSE: 

This procedure initializes the Info,Target and Info,View for this panel 
EXCEPTIONS: 

TAE,UNINITIALIZED_PTR is raised if Collection_Read not initialized 
TAE.Tae_Co,NO_SUCH_MEMBER is raised if the panel is not in 
Co11ection_Read 

NOTES: (none) 
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Create_Panel 


Subprogram SPEC 


procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT__P REF ERRED; 

Relative_Window 

: in X_Windows.Window 

: = X_Windows „Null_Window ); 


— Flags sent to Wpt_NewPanel. 


-- Panel origin is offset from 
-- tbis X Window. Null_Window 
— uses the root window. 


—| PURPOSE: 

— 1 This procedure creates this panel object in the specified Panel__State 
--j and stores the panel Id in Info.Panel_Id. 


EXCEPTIONS; 


-- j TAE.UNINITIALIZED__PTR is raised if the panel is not initialized 
— I TAE.TAE_FAIL is raised if the panel could not be created 


NOTES * 


(none) 


Connect_Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.TaeJWpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= X„Windows.Null_Window ); 


-- Panel origin is offset from 
-- this X Window. NullJWindow 
uses the root window. 


--I PURPOSE: 

--I If this panel doesn't exist, this procedure creates this panel object 
---1 in the specif iec Panel_State and stores the panel Id in 
--] Info.Panel_Id. 

— I If this panel does exist, it is set to the specified Panel_State. 

--I In this case, Relative_Window is ignored. 


EXCEPTIONS s 
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—j TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
--I not initialized 

— I TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
--I created 

--I TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
--I Panel_State is an invalid state 


NOTES: 


(none) 


Dest r oy__Pane 1 


-- Subprogram SPEC 


procedure Destroy_Panel; 


--[ PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 


--! EXCEPTIONS: 

—! TAE.Tae_Wpt.BAD_PANEL_ID is raised if Info.Panel_Id is an invalid id. 


--| NOTES: 

--I Info.Panel_Id is set to TAE .NULL_PANEL__ID, and should not referenced 
--I in any Wpt call until it is created again. 


Dispatch_Item 


-- Subprogram SPEC 


procedure Dispatch__Itern 

( User_Context_Ptr — Wpt Event Context for a PARM 

: in TAE.Tae_Wpt.Event_Context_Ptr ); -- event. 


--I PURPOSE: 

--I This procedure calls the Event Handler specified by User__Context_Ptr 


EXCEPTIONS; 


--I Application-specific 
— I 

--I NOTES: (none) 


end Panel_sb_main; 
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-- *** TAE Plus Code Generator version V5.3 [Merge Tokens DO NOT DELETE.] 

-- *** File: pan_sb_main_b.a 

-- *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

— *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 

_ ********3t************'*'ft*********#*********************************^C******* 

„ _ * 

* Panel_sb_main -- Package BODY 

_ * 

************************************************************************** 

with TAE; use TAE; 
with Text__IO; 
with Global; 

-- One "with" statement for each connected panel* 
with Panel__maintain; 
with Panel_query; 

-- MERGE NOTE: Add additional M with"s BELOW this line* 

-- MERGE NOTE: Add additional "with M s ABOVE this line. 

package body Panel„sb_main is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: sb_main 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 
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--I help_button, main_label, quit_button, sb__maint_button, 

--| sb_query_button 

— I 

--I CHANGE LOG: 

--I MERGE NOTE: Add Change Log entries BELOW this line. 

--I 4-Mar-96 TAE Generated 

--I MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initialize_Panel 


-- Subprogram BODY 


procedure Initialize_Panel 
( Collection_Read 

: in TAE . Tae__Co . Collection_Ptr ) is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae__Co.Co_Find (Info.Collection, "sb_main_v" # Info.View); 

TAE.Tae_Co.Co_Find (Info.Collection, "sb_main_t", Info.Target); 

-- MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

When TAE.UNINITIALIZED„PTR => 

Text_IO.Put_Line ("Panel_sb_main.Initialize_Panel: " 

& M Collection_Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text__IO. Put^Line ("Panel_sb_main. Initialize__Panel: " 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 
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Create_Panel 


- -- Subprogram BODY 


procedure Create__Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt^Flags 

: = TAE. TaeJWp t. WPT__P REFERRED ; 

Relative_Window 

: in X__Windows .Window 

:= X_Windows.Null_Window ) is 

--I NOTESs (none) 

-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 
MERGE NOTE: Add declarations for Create_Panel ABOVE this line. 

begin -- Create_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
TAE. Tae__Wpt. Wpt_NewPanel 


Display_Id 

= > 

Global.Default„Display_Id 

Data__Vm 

= > 

Info.Target, 

View_Vm 

= > 

Info .View, 

Relative_Window 

= > 

Relative_Window, 

User_Context 

= > 

Info, 

Flags 

= > 

Panel_State, 

Panel_Id 

= > 

Info.Panel_Id ); 


else 

Text_XO.Put_Line ("Panel (sbjnain) is already displayed."); 
end if; 

-- MERGE NOTE: Add code for Create_Panel BELOW this line. 

-- MERGE NOTE: Add code for Create_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO.Put_Line ("Panel_sb_main.Create_Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE.TAE_FAIL => 

Text_IO.Put_Line ("Panel_sb_main.Create_Panel: " 

& "Panel could not be created."); 
raise; 

end Create_Panel; 
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Connect_Panel 


Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

; in TAE .Tae_Wpt .Wpt__Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= X_Windows.Null_Window ) is 

--! NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect__Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 

begin -- Connect_Panel 

if Info.Panel_Id = Tae .Null_Panel__Id then 
Create_Panel 

( Relative_Window => Relative_Window, 

Panel_State => Panel_State ); 

else 

TAE.Tae_Wpt.Wpt_SetPanelState (Info.Panel_Id, Panel_State); 
end if; 

MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add code for Connect_J?anel ABOVE this line. 

exception 

when TAE.Tae_Wpt.BAD_STATE => 

Text_IO. Put__Line (” Panel_sb_main. Connect__Panel: " 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 


Destroy_Panel 


-- Subprogram BODY 


procedure Destroy__Panel is 
— I NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 
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-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line* 
begin -- Destroy_Panel 

TAE * Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy^Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line* 

exception 

when TAE.Tae_Wpt.BAD_PANEL_ID => 

Text__IO * Put_Line ( " Panel__sb_main. Destroy_Panel: " 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt.ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 

-- Trap this exception and do nothing. 

null; 

end Destroy__Panel; 


r + + + + + 4 ' 4 ' + + 


-- begin EVENT HANDLERS 


help_button_Event 


-- Subprogram SPEC & BODY 


procedure help_button„Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

PURPOSE: 

--| EVENT HANDLER. Insert application specific information. 

--I 

--l NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: help_button. 
--- MERGE NOTE: Add declarations ABOVE this line for parm: help__button. 

begin -- help_button_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel sb_main, parm help_button: value = ") ; 
if Count > 0 then 
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TAE.Tae_Vm.Vm_ExtractSVAL (Info.Parm_Ptr / 1, Value(l)); 
Text_IO.Put_Line (Value(1) ) ; 
else 

Text_IO.Put_Line ("none"); 
end if; 

— MERGE NOTE: Add code BELOW this line for parm: help_button. 
MERGE NOTE: Add code ABOVE this line for parm: help_button. 

end help_button_Event; 


main_label_Event 


-- Subprogram SPEC & BODY 


procedure main_label_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

-“I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: main_label. 
” MERGE NOTE: Add declarations ABOVE this line for parm: main_label. 

begin -- main_label_Event 

TAE.Tae_Vm.Vm__Extract_Count (Info.Parm_Ptr, Count) ; 

Text_IO.Put ("Panel sb_main, parm main__label: value = "); 
if Count > 0 then 

TAE.Tae__Vm.Vm_Extract_SVAL (Info.Parm_Ptr / 1, Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

MERGE NOTE: Add code BELOW this line for parm: main_label. 

-- MERGE NOTE: Add code ABOVE this line for parm: main_label. 

end main_label_Event; 


quit_button_Event 


-- Subprogram SPEC & BODY 
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procedure guit__button_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--| PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--| NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae„Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: quit_button. 
MERGE NOTE: Add declarations ABOVE this line for parm: quit_button. 

begin — quit_button_Event 

TAE . Tae_Vm. Vm_Extract__Count (Inf o • Parm_Ptr, Count); 

Text_IO.Put ("Panel sb__main / parm quit_button: value = "); 
if Count > 0 then 

TAE.Tae_Vxn.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text^IO.Put_Line (Value(1)); 
else 

Text„IO. Put__Line ( "none " ) ; 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: quit_button. 

-- MERGE NOTE: Add code ABOVE this line for parm: quit_button. 

end quit_button_Event; 


sbjmaint_butt on_Event 


Subprogram SPEC & BODY 


procedure sb_maint__button_Event 

( Info : in TAE. Tae_Wpt o Event_Context__Ptr ) is 

--| PURPOSE: 

EVENT HANDLER. Insert application specific information. 

— I 

~~I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: sb_maint_button 
-- MERGE NOTE: Add declarations ABOVE this line for parm: sb_maint_Jbutton 
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begin -- sb_maint_button_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text__IO.Put ("Panel sb_main, parm sb__maint_button: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text„IO.Put_Line ("none"); 
end if; 

- - sb_maint__button 

Panel__maintain.Connect_Panel (TAE. Tae_Wpt. WPT_PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: sb__maint_button. 
-- MERGE NOTE: Add code ABOVE this line for parm: sb_maint_button. 

end sb__maint_button_Event ; 


sb_query_bu11 on_E vent 


-- Subprogram SPEC & BODY 


procedure sb_query_button_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER* Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: sb_query_button 
-- MERGE NOTE: Add declarations ABOVE this line for parm: sb_query__button 

begin -- sb__query„button_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel sb_main, parm sb_query_button: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- sb_query__button 
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Panel_query. Connect_Panel (TAE. Tae_Wpt .WPT_PREFERRED) ; 

-- MERGE NOTE; Add code BELOW this line for parm: sb_query_Jbutton. 
-- MERGE NOTE; Add code ABOVE this line for parm; sb_query__button* 

end sb_query_button_Event; 


-- end EVENT HANDLERS 


Dispatch_Item 


Subprogram BODY 


procedure Dispatch_Item 

( User„Context_Ptr ; in TAE.Tae_Wpt.Event_Context_Ptr ) is 
NOTES; (none) 
begin -- Dispatch_Item 

if TAE.Tae_Misc.s_equal ("help^utton", User_Context_Ptr*Parm__Name) then 
help_button_Event (User_Context_Ptr) ; 

elsif TAE.Tae_Misc . s_equal ( ,, main_label ,, , User__Context_Ptr „ Parm„.Name) then 
main_label_Event (User_Context_Ptr); 
elsif TAE . Tae_Misc. s_equal ( "quit_button H , User_Context_Ptr. Parm__Name) 

then 

quit_button_Event (User_Context_Ptr); 

elsif TAE. Tae_Misc „ s_equal ( "sb_maint__button" , User__Context__Ptr. Pann_Name) 
then 

sb_maint_button_Event (User_Context_Ptr); 
elsif TAE. Tae_Misc. s_equal ( " sb_query__button" , User_Context_Ptr. Parm_Name) 
then 

sb_query_button_Event (User_Context_Ptr) ; 
end if; 

end Dispatch_Item; 


-- MERGE NOTE; Add additional code BELOW this line. 

-- MERGE NOTE; Add additional code ABOVE this line. 

end Panel_sb_main; 

*** TAE Plus Code Generator version V5.3 [Merge Token; DO NOT DELETE. ] 
-- *** File: pan_sdetail_s.a 
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__ *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

__ *** Application: CAPS Software Base 


* 

* Panel_sdetail -- Package SPEC 

* 


with TAE; 
with X_Windows; 

package Panel__sdetail is 


PURPOSE: 

This package encapsulates the TAE Plus panel: sdetail 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 

It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: sdetail 


CHANGE LOG: 
4-Mar-96 


TAE 


Generated 


Info : TAE.Tae_Wpt.Event__Context_Pt r; -- panel information 


Initialize_Panel 


Subprogram SPEC 


procedure Initialize_Panel 

( Collection__Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info.Target and Info.View for this panel 
--I 

--I EXCEPTIONS: 
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--! TAE.UNINITIALIZED_PTR is raised if Collection_Read not initialized 
--1 TAE.Tae_Co *NO_SUCH_MEMBER is raised if the panel is not in 
--1 Collection_Read 

--I NOTES: (none) 


Create__Panel 


Subprogram SPEC 


procedure Create_Panel 
( Panel__State 

: in TAE . Tae_Wpt»Wpt_Flags 

:= TAE.Tae_Wpt. WPT_PREFERRED; 

Re1ative_Window 

: in X_Windows .Window 

:= X„Windows.NullJWindow ); 


-- Flags sent to Wpt_NewPanel* 


-- Panel origin is offset from 
-- this X Window. Null__Window 
-- uses the root window. 


PURPOSE: 


--I This procedure creates this panel object in the specified Panel_State 
--I and stores the panel Id in Info.Panel„Id. 


--I EXCEPTIONS: 

--I TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
--I TAE.TAE_FAIL is raised if the panel could not be created 

--I NOTES: (none) 


Connect_Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= X_Windows .Null_Window ); 


Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


— I PURPOSE: 

--I If this panel doesn*t exist, this procedure creates this panel object 
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in the specifiec Panel_State and stores the panel Id in 
Info.Panel_Id. 

If this panel does exist, it is set to the specified Panel_State. 
In this case, Relative_Window is ignored. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create„Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 

NOTES: (none) 


Destroy_Panel 


-- Subprogram SPEC 


procedure Destroy_Panel; 


PURPOSE: 

This procedure erases a panel from the screen and de-allocates the 
associated panel object (not the target and view). 

EXCEPTIONS: 

TAE.Tae_Wpt.BAD_PANEL_ID is raised if Info.Panel_Id is an invalid id. 
NOTES: 

Info.Panel_Id is set to TAE.NULL_PANEL_ID, and should not referenced 
in any Wpt call until it is created again. 


Dispatch_Item 


-- Subprogram SPEC 


procedure Dispatch_Item 

( User__Context_Ptr Wpt Event Context for a PARM 

: in TAE. TaeJWpt. Event_Cont ext_Ptr ) ; - - event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context__Ptr 
— I 

--I EXCEPTIONS: 
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| Application-specific 
--I 

--I NOTES: (none) 


end Panel_sdetail; 

*** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 
-- *** File: pan_sdetail_b.a 

__ *** Generated: Feb 28 14:56:42 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


_ *************************************************************************** 

_ * 

* Panel__sdetail -- Package BODY 

_ * 

__ a**#***#####**#####**#*##***#******#******#**#*###**#**#*###########***#** 

with TAE; use TAE; 
with Text_IO; 
with Global; 

use Text__io, Global; 

-- One "with" statement for each connected panel, 
with Panel_opdetail; 
with Panel__sdetail; 

-- MERGE NOTE: Add additional "with"s BELOW this line. 

-- MERGE NOTE: Add additional "with"s ABOVE this line. 


package body Panel_sdetail is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: sdetail 

The following WorkBench operations will also cause regeneration: 
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An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item’s data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

sdetail_cancel, sdetail_help, sdetail_next, sdetail_ok, 
sig_display, sig_list, sig_name_key in 


CHANGE LOG: 
MERGE NOTE: Add 
28-Feb-96 TAE 

MERGE NOTE: Add 


Change Log entries 
Generated 
Change Log entries 


BELOW this line. 
ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initial ize_JPanel 


Subprogram BODY 


procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 
--! NOTES: (none) 

-- MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Initialize_Panel ABOVE this line. 

begin -- Initialize__Panel 

Info := new TAE.TaeJWpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE. Tae__Co. Co__Find (Inf o. Collect ion, " sdetail__v", Info.View); 
TAE.Tae_Co.Co_Find (Info.Collection, "sdetail_t". Info.Target); 

-- MERGE NOTE: Add code for Initialize_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE.TJNINITIALIZED_PTR => 

Text_IO.Put_Line ("Panel_sdetail.Initialize_Panel: " 

& "Collection_Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text_IO.Put_Line ("Panel_sdetail.Initialize„Panel: " 
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& 11 (View or Target) not in Collection. ") ; 
raise; 

end Initialize„Panel; 


Create_Panel -- Subprogram BODY 


procedure Create_Panel 

( Panel_State 

: in TAE.TaeJWpt.Wpt_Flags 

: = TAE.Tae_Wpt.WPT_PREFERRED; 

Relati veJWindow 

: in X_Windows.Window 

: = X_Windows.NullJWindow ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Create_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Create__Panel ABOVE this line. 

begin -- Create_Panel 

if Info.Panel_Id = Tae.Null„Panel_Xd then 
TAE. Tae_Wpt. Wpt_NewPanel 

( Displayed => Global. Def ault_Display__Xd, 

Data_Vm => Info.Target, 

View_Vm => Info.View, 

Relative_Window => Relative_Window, 

User__Context => Info, 

Flags => Panel_State, 

Panel_Id => Info.Panel_Id ); 

else 

Text_IO.Put_Line ("Panel (sdetail) is already displayed."); 

end if; 

-- MERGE NOTE: Add code for Create_Panel BELOW this line. 

-- MERGE NOTE: Add code for Create_Panel ABOVE this line. 

exception 

when TAE.UNINITXALXZED_PTR => 

Text_IO. Put_Line ( "Panel_sdetail .Create__Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE.TAE_FAIL => 

Text_IO. Put_Line (" Panel_sdetail. Create_Panel: " 
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Subprogram BODY 


& "Panel could not be created."); 
raise; 

end Create_Panel; 


Connect Panel 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:s TAE.TaeJWpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows .Window 

:= XJWindows.Null_Window ) is 

--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Connect_Panel ABOVE this line. 


-- ADDED By RUEY-WEN (VINCENT) HONG 960228 


Dummy:Boolean; 

S_Sig_Keep_vec : TAE.S_vector(1..10); 


begin -- Connect_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
Create_Panel 

( Relative_Window => RelativeJWindow, 

Panel_State => Panel_State ); 

else 

TAE.Tae_Wpt.Wpt_SetPanelState (Info.Panel__Id, Panel_State); 
end if; 

-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add code for Connect__Panel ABOVE this line. 


-- ADDED By RUEY-WEN (VINCENT) HONG 960228 


TAE.Tae_Wpt.Wpt__SetPanelState (Info.Panel_Id, Panel_State); 
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S_Sig„Keep_vec := (others=> new String(1. .TAE.Tae_Taeconf.STRINGSIZE)); 

S_Sig_Keep_vec := (others=> new String(1..1)); 

for Count in 1 . . 10 loop 

S_Sig_Keep_vec(Count).all := Sig_Keep_vec(Count); 
end loop; 

t ext__i o . newl ine; 
if Sig„Keep_vec(1) = "A" then 
text_io.put("I got A!”); 
text_io.new_line; 
end if; 

if Sig_Keep_vec(2) = "B" then 
text_io. put ( 11 1 got B!"); 
text_io.new_line; 
end if; 

if Sig__Keep_vec (3) = "C" then 
text„io.put("I got C!"); 
t ext_io.new_line; 
end if; 

if Sig_Keep_vec(4) = "D" then 
text_io.put("I got D!"); 
text_io„new_line; 
end if; 


TAE. Tae_Wpt .Wpt_SetStringConstraints (Inf o. Panel__Id, "sig__list" , taeint (10) , S__Si 
g_Keep_Vec); 

Dummy s =TAE . Tae Wpt .Wpt_Pending; 


exception 

when TAE.Tae_Wpt.BAD_STATE => 

Text_IO o Put_Line ("Panel_sdetail.Connect_Panel: 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 


Destroy_Panel 


-- Subprogram BODY 
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procedure Destroy__Panel is 
--I NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy__Panel 

TAE.Tae_Wpt.Wpt^PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE . Tae__Wpt. BAD_PANEL__ID => 

Text__IO. Put_Line ("Panel_sdetail.Destroy_Panel: " 

& "Info.Panel_Id is an invalid id."); 
raise; 

when TAE . Tae_Wpt. ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 

-- Trap this exception and do nothing. 

null; 

end Destroy_Panel; 


--++++++++++++++++++++++++++++++++++++++H 


I-++++ 


-- begin EVENT HANDLERS 


sdetail__cancel_Event 


Subprogram SPEC & BODY 


procedure sdetail_cancel_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

— I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parra: sdetail_cancel. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: sdetail_cancel. 
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begin -- sdetail_cancel_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel sdetail, panel sdetail_cancel: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm__Ptr, 1, Value(1)); 

Text_IO.Put„Line (Value(1)); 
else 

Text„IO. Put_Line ( "none" ) ; 
end if; 

sdetail__cancel 
Destroy_Panel; 

Panel„opdetail.Connect_Panel (TAE. Tae__Wpt .WPTJP REFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parxn: sdetail_cancel. 
-- MERGE NOTE: Add code ABOVE this line for parm: sdetail_cancel. 

end sdetail_cancel_Event; 


s de t ail_help_Event 


-- Subprogram SPEC & BODY 


procedure sdetail_help_Event 

( Info : in TAE „ Tae_Wpt. Event__Context_Ptr ) is 

--I PURPOSE: 

--[ EVENT HANDLER. Insert application specific information. 

--I 

--| NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: sdetail_help. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: sdetail_help. 

begin -- sdetail_help_Event 

TAE„Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel sdetail, parm sdetail_help: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 


282 






-- sdetail_help 
Destroy_Panel; 

Panel_opdetail.Connect^Panel (TAE.Tae_Wpt.WPT_PREFERRED); 

-- MERGE NOTE: Add code BELOW this line for parm: sdetail_help. 
-- MERGE NOTE: Add code ABOVE this line for parm: sdetail_help. 

end sdetail__help_Event ; 


sdetail_next__Event 


-- Subprogram SPEC & BODY 


procedure sdetail_next_Event 

( Info : in TAE . Tae__Wpt. Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

MERGE NOTE: Add declarations BELOW this line for parm: sdetail_next, 
-- MERGE NOTE: Add declarations ABOVE this line for parm: sdetail_next. 

begin -- sdetail_next_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info .Parm__Ptr, Count) ; 

Text__IO.Put ("Panel sdetail, parm sdetail__next: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1 , Value(l)); 

Text_IO.Put_Line (Value(1)); 
else 

Text__IO. Put_Line ( "none" ) ; 
end if; 

-- sdetail_next 
Destroy_Panel; 

Connect_Panel (TAE.Tae_Wpt .WPT__PREFERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: sdetail_next. 

-- MERGE NOTE: Add code ABOVE this line for parm: sdetail_next. 

end sdetail_next_Event; 
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sde t a i l__ok„E vent 


-- Subprogram SPEC & BODY 


procedure sdetail_ok_Event 

( Info : in TAE. Tae__Wpt. Event__Context_Ptr ) is 

--I PURPOSE: 

--| EVENT HANDLER. Insert application specific information, 

--I 

--I NOTES: (none) 

Value : array (1..1) of String (1.,TAE„Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: sdetail_ok. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: sdetail_ok. 

begin -- sdetail_ok_Event 

TAE.Tae_Vin.Vm_Extract„Count (Info,Parm_Ptr, Count); 

Text_IO.Put ("Panel sdetail, parm sdetail_ok: value = "); 
if Count > 0 then 

TAE.Tae_Vm*Vm_Extract_SVAL (Info.Parm„Ptr, 1, Value(l)); 

Text„IO o Put_Line (Value(1)); 
else 

Text__IO o Put_Line (" none " ) ; 
end if; 

-- sdetail_ok 
Destroy_Panel; 

Panel_opdetail .Connect_Panel (TAE <> Tae_Wpt. WPT__P REF ERRED) ; 

-- MERGE NOTE: Add code BELOW this line for parm: sdetail_ok. 

-- MERGE NOTE: Add code ABOVE this line for parm: sdetail_ok. 

end sdetail_ok_Event; 


sig_display_Event 


Subprogram SPEC & BODY 


procedure sig_display_Event 

( Info : in TAE. Tae_Wpt. Event__Context_Ptr ) is 

--I PURPOSE: 

--| EVENT HANDLER. Insert application specific information. 
--I 

--I NOTES: (none) 
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Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: sig_display. 
— MERGE NOTE: Add declarations ABOVE this line for parm: sig_display. 

begin -- sig__display_Event 

TAE.Tae__Vm.Vm_Extract_Count (Info*Parm_Ptr, Count); 

Text_IO.Put ("Panel sdetail, parm sig_display: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IO. Put_Line (Value (1) ) ; 
else 

Text„IO.Put_Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: sig_display. 

-- MERGE NOTE: Add code ABOVE this line for parm: sig_display. 

end sig_display_Event; 


sig_list_Event 


-- Subprogram SPEC & BODY 


procedure sig_list_Event 

( Info : in TAE. Tae_Wpt.Event_Context__Ptr ) is 

--] PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--i NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: sig_list. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: sig__list. 


--ADDED By RUEY-WEN (VINCENT) HONG 960228 


S_Value : TAE.s_vector(1..1); 
begin -- sig_list_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 
Text_IO.Put ("Panel sdetail, parm sig_list: value = "); 
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if Count > 0 then 

TAE - Tae_Vm. Vtn_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(1)); 
else 

Text_IO.Put_Line ("none"); 
end if; 


-- MERGE NOTE: Add code BELOW this line for parm: sig_list. 
MERGE NOTE: Add code ABOVE this line for parm: sig_list. 


-“ADDED By RUEY-WEN (VINCENT) HONG 960228 

SJValue(l) := new String (1..TAE.Tae_Taeconf.STRINGSIZE); 

S_Value(1).all s=Value(l); 

TAE.TAE_Vm.Vm_SetString_Vec (Info.target, !, sig__display", 1, S_Value, 
TAE. TAEJVm . P__Update) ; 

TAE. TAE_Wpt- Wpt_ParmUpdate (Info. Panel_Id 7 " sig^display" ) ; 

end sig_list_Event; 


s ig_name__key in_Event 


Subprogram SPEC & BODY 


procedure sig_name_keyin__Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

---1 EVENT HANDLER. Insert application specific information. 

-- I 

--I NOTES: (none) 

Value : array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

MERGE NOTE: Add declarations BELOW this line for parm: sig_name_keyin. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: sig_name_keyin<, 

begin -- sig_name_keyin__Event 

TAE.Tae_Vm.Vm_Extract_Count (Inf o .Parm_Ptr, Count); 

Text_IO.Put ("Panel sdetail, parm sig_name_keyin: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(1)); 

Text__IO. Put_Line (Value (1) ) ; 
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else 

Text_IO,Put__Line ("none"); 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: sig_name_keyin. 
-- MERGE NOTE: Add code ABOVE this line for parm: sig_name_keyin. 

end sig_name_keyin_Event; 


-- end EVENT HANDLERS 


Dispatch_Itern 


Subprogram BODY 


procedure Dispatch_Item 

( User_Context_Ptr : in TAE.Tae_Wpt.Event_Context_Ptr ) is 
--I NOTES: (none) 
begin -- Dispatch_Item 

if TAE.Tae_Misc.s_equal ("sdetail_cancel", TJser_Context_Ptr.Parm_Name) 

then 

sdetail_cancel_Event (User_Context_Ptr); 
elsif TAE.Tae_Misc.s_equal ("sdetail_help", User_Context_Ptr.Parm_Name) 

then 

sdetail_help_Event (User_Context_Ptr) ; 
elsif TAE* Tae__Misc . s_equal (" sdetail_next" , User__Context_Ptr. Parm_Name) 

then 

sdetail_next_Event (User__Context_Ptr) ; 
elsif TAE * Tae_Misc * s_equal ("sdetail_ok", User_Context_Ptr .Parm_Name) then 
sdetail_ok_Event (User_Context_Ptr) ; 
elsif TAE.Tae_Misc.s_equal ("sig_display", User_Context_Ptr.Parm„Name) 

then 

sig_display_Event (User_Context__Ptr) ; 
elsif TAE.Tae_Misc . s_equal ("sig_list" / User__Context__Ptr. Parm_Name) then 
sig_list_Event (User_Context_Ptr) ; 
elsif TAE.Tae_Misc.s_equal ("sig_name_keyin", 

User_Context_Ptr.Parm_Name) then 

sig_name_keyin_Event (User__Context_Ptr) ; 
end if; 

end Dispatch_Item; 
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-- MERGE NOTE: Add additional code BELOW this line, 
-- MERGE NOTE: Add additional code ABOVE this line. 

end Panel_sdetail; 


-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 
-- *** File: pan_j3elect_l_s. a 

*** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


* 

* Panel_select_l -- Package SPEC 

* 


with TAE; 
with X_Windows; 

package Panel_select__l is 


PURPOSE: 

This package encapsulates the TAE Plus panel: select_l 
These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel’s Event_Context (Info) is provided. 

It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation). 

INITIALIZATION EXCEPTIONS: (none) 

NOTES: (none) 

REGENERATED: 

The following Workbench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: select_l 


CHANGE LOG: 

4-Mar-96 TAE 


Generated 


Info : TAE.Tae_Wpt.Event_Context_Ptr; -- panel information 


Initializ e_Pane1 


-- Subprogram SPEC 
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procedure Initialize_Panel 

( Collection__Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); -- resource file 


PURPOSE: 

This procedure initializes the Info.Target and Info.View for this panel 
EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised if Collection_Read not initialized 
TAE.Tae_Co.NO_SUCH_MEMBER is raised if the panel is not in 
Collection_Read 

NOTES: (none) 


Create__Panel 


-- Subprogram SPEC 


procedure Create_Panel 
( Panel_jState 

: in TAE.Tae_Wpt.Wpt_Flags 

: = TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= X__Windows .Null_Window ); 


-- Flags sent to Wpt_NewPanel. 


-- Panel origin is offset from 
-- this X Window. Null„Window 
-- uses the root window. 


PURPOSE: 


--| This procedure creates this panel object in the specified Panel_State 
-“I and stores the panel Id in Info.Panel_Id. 


--| EXCEPTIONS: 

--I TAE.UNINITIALIZED__PTR is raised if the panel is not initialized 
--1 TAE.TAE_FAIL is raised if the panel could not be created 


NOTES: 


(none) 


Connect_Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 
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: in TAE. Tae__Wpt. Wpt_Flags 

:= TAE.Tae_Wpt *WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= XJWindows.Null_Window ); 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


PURPOSE: 

If this panel doesn’t exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info.Panel_Id. 

If this panel does exist, it is set to the specified Panel_State. 

In this case, Relative__Window is ignored. 

EXCEPTIONS: 

TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 

NOTES: (none) 


Destroy__Panel 


Subprogram SPEC 


procedure Destroy_Panel; 


PURPOSE: 

This procedure erases a panel from the screen and de-allocates the 
associated panel object (not the target and view). 

EXCEPTIONS: 

TAE.Tae_Wpt.BAD_PANEL„ID is raised if Info.Panel_Id is an invalid id. 
NOTES: 

Info.Panel_Id is set to TAE.NULL_PANEL_ID, and should not referenced 
in any Wpt call until it is created again. 


Dispatch_Item 


Subprogram SPEC 
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procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE.Tae_Wpt.Event_Context_Ptr ); -- event. 


PURPOSE: 

This procedure calls the Event Handler specified by User„Context_Ptr 

EXCEPTIONS: 

Application-specific 

NOTES: (none) 


end Panel__select_l; 

— *** T ae Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: pan_select_l_b.a 

-- *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

— *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


— ************************************************************************** 
_ * 

* Panel_select_l -- Package BODY 

_ * 

— ************************************************************************** 
with TAE; use TAE; 
with Text_IO; 
with Global; 


-- One "with 11 statement for each connected panel. 

-- MERGE NOTE; Add additional "with"s BELOW this line. 
-- MERGE NOTE; Add additional "with"s ABOVE this line. 

package body Panel_select_l is 


NOTES: 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

For best automatic code merging results, you should put as many 
modifications as possible between the lines of the MERGE NOTE comments. 
Modifications outside the MERGE NOTES will often merge correctly, but 
must sometimes be merged by hand. If the modifications cannot be 
automatically merged, a reject file (*.rej) will be generated which 
will contain your modifications. 

REGENERATED: 
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The following WorkBench operations will cause regeneration of this file: 

The panel's name is changed (not title) 

For panel: select_l 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item’s name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 

An item's connection information changed 
For the panel items: 
select_l__disp 

CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line* 

4-Mar-96 TAE Generated 

MERGE NOTE: Add Change Log entries ABOVE this line. 


-- MERGE NOTE: Add additional code BELOW this line. 
-- MERGE NOTE: Add additional code ABOVE this line. 


Initialize_Panel 


Subprogram BODY 


procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 
--I NOTES: (none) 

MERGE NOTE: Add declarations for Initialize_Panel BELOW this line. 

--- MERGE NOTE: Add declarations for Initialize__Panel ABOVE this line. 

begin -- Initialize_Panel 

Info := new TAE.TaeJWpt.Event_Context; 

Info.Collection := Collection_Read; 

TAE.Tae_Co.Co_Find (Info.Collection, "select_l_v" , Info.View) ; 

TAE.Tae__Co .Co__Find (Info.Collection, "select__l_t" , Info.Target) ; 

MERGE NOTE: Add code for Initial!ze_Panel BELOW this line. 

-- MERGE NOTE: Add code for Initialize_Panel ABOVE this line. 

exception 

when TAE .UNINITIALIZED_PTR => 

Text_IO.Put_Line ("Panel_select_l.Initialize_Panel: " 

& "Collection__Read not initialized."); 
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raise; 


when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text__IO. Put_Line ( "Panel_select_l. Initialize_Panel: 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel; 


Create_Panel 


-- Subprogram BODY 


procedure Create__Panel 
( Panel_State 

: in TAE.TaeJWpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

:= X_Windows .Null__Window ) is 

--I NOTES: (none) 

— MERGE NOTE: Add declarations for Create„Panel BELOW this line. 
-- MERGE NOTE: Add declarations for Create_Panel ABOVE this line. 

begin -- Create_Panel 

if Info.Panel_Id = Tae„Null_Panel_Id then 
TAE. TaeJWpt. Wpt_NewPanel 


Display_Id 

= > 

Global. Def ault_Display__: 

Data_Vm 

= > 

Info.Target, 

View_Vm 

= > 

Info.View, 

Relative_Window 

= > 

Relative_Window, 

User_Context 

— > 

Info, 

Flags 

= > 

Panel_State, 

Panel_Id 

= > 

Info.Panel_Id ); 


else 

Text_IO.Put_Line ("Panel (select_l) is already displayed."); 
end if; 

-- MERGE NOTE: Add code for Create_Panel BELOW this line. 

-- MERGE NOTE: Add code for Create_Panel ABOVE this line. 

exception 

when TAE.UNINITIALIZED_„PTR => 

Text_IO.Put_Line ("Panel_select_l.Create_Panel: " 

& "Panel was not initialized prior to creation."); 
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raise 


when TAE.TAE_FAIL => 

Text_IO.Put_Line ("Panel_select_l.Create_Panel: 

& "Panel could not be created,"); 
raise; 

end Create_Panel; 


Connect__Panel 


-- Subprogram BODY 


procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 

: in X_Windows.Window 

: = X_Windows.Null_Window ) is 

— I NOTES: (none) 

-- MERGE NOTE: Add declarations for Connect_Panel BELOW this line, 

MERGE NOTE: Add declarations for Connect_Panel ABOVE this line, 

begin -- Connect_Panel 

if Info.Panel_Id = Tae.Null_Panel_Xd then 
Create_Panel 

( Relative_Window => RelativeJWindow, 

Panel_State => Panel_State ); 

else 

TAE.Tae_Wpt.Wpt_SetPanelstate (Info.Panel_Id, Panel_State); 
end if; 

-- MERGE NOTE: Add code for Connect_Panel BELOW this line. 

-- MERGE NOTE: Add code for Connect Panel ABOVE this line. 

exception 

when TAE.Tae_WptoBAD_STATE => 

Text_IO. Put__Line ( "Panel_select_l .Connect_Panel: " 

Sc "Invalid panel state."); 
raise; 

end Connect__Panel; 
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Destroy_Panel 


-- Subprogram BODY 


procedure DestroyJPanel is 
--! NOTES: (none) 

-- MERGE NOTE: Add declarations for Destroy__Panel BELOW this line. 

-- MERGE NOTE: Add declarations for Destroy_Panel ABOVE this line. 

begin -- Destroy_Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

-- MERGE NOTE: Add code for Destroy_Panel BELOW this line. 

-- MERGE NOTE: Add code for Destroy_Panel ABOVE this line. 

exception 

when TAE . Tae_Wpt. BAD_PANEL_ID => 

Text_IO.Put_Line ("Pane l_s elect _J1.Destroy_Panel: " 

Sc "Info .Panel__Id is an invalid id.”); 
raise; 

when TAE.Tae_Wpt.ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 

-- Trap this exception and do nothing. 

null; 

end Destroy_Panel; 


-- begin EVENT HANDLERS 


select_l_disp_Event 


-- Subprogram SPEC & BODY 


procedure select„l_disp_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

— I 

— I NOTES: (none) 
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Value : array (1..1) of String (L.TAE.Tae_Taeconf.STRINGSIZE); 

Count : TAE.Taeint; 

-- MERGE NOTE: Add declarations BELOW this line for parm: select__l_disp. 
-- MERGE NOTE: Add declarations ABOVE this line for parm: select_l_disp. 

begin -- select_l_disp_Event 

TAE.Tae_Vm.Vm_Extract_Count (Info *Parm_Ptr / Count) ; 

Text_IO.Put ("Panel select_l, parm select_l_disp: value = "); 
if Count > 0 then 

TAE.Tae__Vfri*Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 

Text_IOoPut_Line (Value(1)); 
else 

Text__IO. Put_Line ( " none " ) ; 
end if; 

-- MERGE NOTE: Add code BELOW this line for parm: select_l_disp. 

-- MERGE NOTE: Add code ABOVE this line for parm: select_l_disp<, 

end select_l_disp_Event; 


-- end EVENT HANDLERS 


Dispatch_Item 


-- Subprogram BODY 


procedure Dispatch_Itern 

( User__Context_Ptr : in TAE. TaeJWpt .Event_Context_Ptr ) is 
-“I NOTES s (none) 
begin — Dispatch__Item 

if TAE .Tae__Misc o s__equal ( "select^l^disp" , User__Context_Ptr. Parm_Name) then 
select_l_disp_Event (User_Context_Ptr); 
end if; 

end Dispatch__Item; 


MERGE NOTE: Add additional code BELOW this line. 
MERGE NOTE: Add additional code ABOVE this line. 
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end Panel__select_l; 


-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE*3 

-- *** File: sbgui.a 

-- *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


sbgui 


-- Main program BODY 


PURPOSE: 

This is the main program of an application generated by the TAE Plus 
Code Generator. 

EXCEPTIONS: (none) 


REGENERATED: 

This file is generated only once, 
impacting automatic code merge. 


Therefore, you may modify it without 


NOTES: 

To turn this into a real application, do the following: 

1. Each panel that has event generating parameters is encapsulated by 

a package. Each parameter that you have defined to be "event-generating", 
has an event handler procedure in the appropriate panel's package body. 

The panel's package body is in a file, named by concatenating the string 
,, pan_" with the panel name (followed by "_b.a"). Each handler has a name 
that is a concatenation of the parameter name and the string "_Event" 

Add application-dependent logic to each event handler. 

(As generated by the Workbench, each event handler simply logs the 
occurrence of the event.) 

2. See the "TAE Plus Ada Programmer's Guide" for directions on how 
to compile and link this program. 


ADDITIONAL NOTES: 

In TAE Plus version 4.1, every TAE Ada application caused the screen 
to be cleared as part of the initialization of the tae_termio package. 
In TAE Plus version 5.0, the TAE Ada bindings have been changed so as 
not to clear the screen by default. Simply adding a call to 
TAE.Tae_Termio.T__Clear will produce the same results as 4.1. 


CHANGE LOG: 

4-Mar-96 TAE 


Generated 
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with TAE; 
with Text_XO; 

with Global; -- application global variables 

-- PROGRAMMER NOTE: 

-- add one "with" for each resource file in this application 
with sbgui_Support; 

procedure sbgui is 

Wpt__Event 
Type„of_Wpt„Event 
User_Context_Ptr 
Panel_In_Resource_File 
UNKNOWN_WPT„EVENT 

begin -- sbgui 

— permit upper/lowercase file names 
TAE o Tae_Misc.F_Force_Lower (FALSE); 

TAE.Tae_Wpt.Wpt_Init ("", Global.Default_Display_Id); 

-- PROGRAMMER NOTE: 

To enable scripting,, uncomment the following line. See the 
-- taerecord man page. 

TAE * Tae_Wpt.Wpt_ScriptInit ("sbgui"); 

-- initialize resource file 
-- PROGRAMMER NOTE: 

-- For each resource file in this application, calls to the appropriate 
-- Initialize_All_Panels and Create__Initial_Panels must be added. 
sbgui_Support *Initialize_All_Panels("/txnp_mnt/users/work2/vincent/caps9 5/ 
src/combine.work2/sbgui.res"); 

sbgui_Support.Create_Initial_Panels; 

TAE. TaeJWpt. Wpt_NewEvent (Wpt__Event) ; 


EVENT_LOOP: 

while not Global.Application_Done loop 
— PROGRAMMER NOTE: 

use Global.Set_Application_Done in "quit" event handler to exit loop 

-- Wait for the next event 

TAE.Tae_Wpt.Wpt_NextEvent 
( Event => Wpt_Event, 

Etype => Type_of_Wpt„Event ); 

case Type_of_Wpt_Event is 


: TAE. Tae__Wpt. Wpt_Eventptr ; 

: Tae.Wpt_Eventtype; 

: TAE.Tae_Wpt .Event_Context_Ptr; 
: Boolean; 

: Exception; 
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when TAE . Tae__Wpt. WPT_PARM_EVENT => 

Panel event has occurred. 

-- PROGRAMMER NOTE: 

-- You can comment out the the following "put" call. 

— The appropriate EVENT_HANDLER finishes the message. 

Text_XO.Put ("Event: WPT_PARM_EVENT, "); 

-- Get the user context (which is stored in the panel object 
-- when Wpt_NewPanel is called). 

TAE. Tae_Wpt. Wpt_J2xtract_Context 
( Event => Wpt_Event, 

User_Ptr => User_Context_Ptr ); 

-- Get the parameter name 

TAE. Tae__Wpt. Wpt_Extract_Parm 
( Event => Wpt„Event, 

Parxn => User_Context_Ptr. Parm_Name ); 

Get target id 

TAE. Tae__Wpt. Wpt_Extract_Data 
( Event => Wpt_Event, 

Data => User_Context_Ptr.Datavm_Ptr ); 

Find Vm parm object 

TAE. Tae_Vm. Vm_Find 

( Vmid => User_Context_Ptr.Datavm_Ptr, 

Name => User_Context__Ptr. Parm_Name / 

Vout => User_Context_Ptr.Parm_Ptr ); 

-- Dispatch event to event handler 

sbgui_Support.Dispatch^Panel 

( User_Context_Ptr => User_Context_Ptr, 

Panel_In_Resource_File => Panel_In_Resource_File ); 

if (not Panel_In_Resource_File) then 

-- PROGRAMMER NOTE: 

-- For applications with more than one resource file, 

-- add a call to Dispatch_Panel for each resource file. 

Text_IO.Put_Line ("Unexpected event from wpt!“); 
raise TAE.Tae_Wpt.BAD_EVENT_ID; 

end if; 


299 




when TAE.Tae_Wpt.WPT_FILE_EVENT => 

Text_IO*Put_Line ("No EVENT_HANDLER for event from external source."); 

-- PROGRAMMER NOTE: 

Add code here to handle file events. 

-- Use Wpt_AddEvent and Wpt_Remove Event to register and remove 
-- event sources. 

-- Use Wpt__Extract_Event Source and Wpt_Extract_EventMask to get 
-- information about the event that occurred. 


when TAE . Tae_Wpt. WPT_WINDOW__EVENT => 
null; 

-- PROGRAMMER NOTE; 

-- Add code here to handle window events. 

-- WPTJWINDOW__EVENT can be caused by windows which you directly create 
-- with X (not TAE panels), or by user acknowledgement of a 
-- Wpt_PanelMessage (therefore no default put_line statement is 
-- generated here). 

-- You MIGHT want to use Wpt_Extract_xEvent_Type here. 

-- DO NOT use Wpt_Extract_Parm_xEvent since this is not 
a WPT__PARM_EVENT; you may get a "storage error". 


when TAE.Tae_Wpt.WPT_TIMEOUT_EVENT => 

Text__IO . Put_Line ( »STUB: Event WPT_TIMEOUT_EVENT" ) ; 

-- PROGRAMMER NOTE; 

-- Add code here to handle timeout events. 

Timeout events occur when an application has not received any 
-- user input within the interval specified by Wpt__Set Time Out. 


when TAE »Tae__Wpt. WPT_TIMER_EVENT => 

Text_IO.Put_Line ("No EVENT_HANDLER for timer."); 

— PROGRAMMER NOTE: 

-- Add code here to handle timer events. 

-- Timer events occur on (or after) the interval specified when the 
-- event is registered using Wpt_AddTimer. Use Wpt_RemoveTimer to 
““ remove timers. 

-- Use Wpt_Extract_JTimerId, Wpt_Extract_TimerRepeat, and 
-- Wpt_Extract_TimerInterval to get information about the event 
that occurred. 


-- These are internal TAE events. The application should never see 

them. 
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-- when TAE.Tae_Wpt .WPT_HELP_EVENT => 

— when TAE.TaeJWpt .WPT__INTERRUPTJEVENT => 

when others => 

raise UNKNOWN_WPT_EVENT; 

end case; 

end loop EVENT^LOOP; 

TAE.Tae_Wpt.Wpt__Finish; -- close all display connections 
-- PROGRAMMER NOTE: 

-- Application has ended normally. Add application specific code to 
-- close down your application. 

exception 

when UNKNOWN_WPT_EVENT => 

Text_IO.Put ("FATAL ERROR: Unknown Wpt_NextEvent Event Type: "); 
Text_IO.Put (TAE.Wpt_Eventtype'image(Type_of_Wpt_Event) ) ; 

Text_IO.Put_Line (" ... Forced exit."); 

end sbgui; 

-- *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 

-- *** File: sbgui creat__init. a 

-- *** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

__ *** Date . Mar 5/ 1996 

__ *** Application: CAPS Software Base 


Create_InitialPanels 


-- Subprogram SUBUNIT 


separate (sbgui_Support) 
procedure Create_Initial_Panels is 


NOTES: 

This subprogram is not in the same file as sbgui_Support.a 
for code regeneration purposes. Therefore it is a subunit. 

Also note, that the parent unit n with n ed in all of the panel packages 
for the entire resource file, so this unit doesn't need to "with" in 
any of the panel packages. 

This procedure should be called after the panels in the initial panel 
set have been initialized. 


--I REGENERATED: 

--I The following WorkBench operations will cause regeneration of this file: 
--I A panel is added to the initial panel set 
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A panel 
For the set 
sb_main 


is deleted from the initial panel set 
of initial panels; 


CHANGE LOG; 
MERGE NOTE; 

4-Mar-96 
MERGE NOTE: 


Add Change Log entries BELOW this line, 
TAE Generated 

Add Change Log entries ABOVE this line. 


— MERGE NOTE: Add additional code BELOW this line, 
-- MERGE NOTE: Add additional code ABOVE this line. 


begin -- Create__In.itial_Panels 
Panel_sb_main. Create_J?anel; 

-- MERGE NOTE: Add additional code BELOW this line, 
-- MERGE NOTE: Add additional code ABOVE this line. 


end Create_Initial__Panels; 

-- *** TAE Plus Code Generator version V5,3 [Merge Token: DO NOT DELETE,] 

-- *** File: sbgui_support_s,a 

-- *** Generated: Mar 4 14:14:09 1996 

__ *** Author : Ruey-Wen (Vincent) Hong 

-- *** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


* 

* sbgui_Support -- Package SPEC 

* 


with TAE; 

package sbgui„Support is 


PURPOSE: 

This package encapsulates the operations specific to a resource file. 
These subprograms enable initialization of all panels, displaying 
all initial panels, and event dispatching, 

INITIALIZATION EXCEPTIONS; (none) 


NOTES: (none) 

REGENERATED: 

This file is generated only once, 
impacting automatic code merge. 


Therefore, you may modify it without 


CHANGE LOG: 

4-Mar-9 6 TAE 


Generated 
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In i t i a 1 i z e_A 11_JP ane 1 s 


-- Subprogram SPEC 


procedure Initia1ize_All_PaneIs 
( Resource_File 

: in String ); 


-- Name of resource file. 


PURPOSE: 

This procedure initializes all the panels in the resource file. 

EXCEPTIONS: 

TAE.TAE_FAIL is raised when the resource file could not be read 

TAE.Tae_Co.NO_SUCH_MEMBER is raised when one of the panels was not in 
the resource file. This could happen if a panel was deleted from 
the resource file (using the WorkBench) after the code was 
generated. 

NOTES: 

This procedure reads in the resource file and initializes each panel. 

It only needs to be called once. 


Create_Initial Panels 


-- Subprogram SPEC 


procedure Create__Initial_Panels; 

PURPOSE: 

This procedure displays the set of initial panels. 
PARAMETERS: (none) 

EXCEPTIONS; (none) 

NOTES: (none) 


Dispatch_Panel 


-- Subprogram SPEC 


procedure Dispatch_Panel 
( User_Context__Ptr 


-- Wpt Event Context for a PARM 
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event 


: in TAE. Tae_Wpt. Event_Cont ext__Ptr; 


Panel__In_Resource__File 
: out Boolean ); 


True, if the PARM event 
occurred in one of the panels 
-- of this resource file. 

-- False, otherwise. 


PURPOSE: 


--| This procedure dispatches a WPT_PARM_EVENT to the appropriate panel’s 
--I Dispatch_Item routine. 


--I EXCEPTIONS: 

--I Application-specific 


NOTES: 


(none) 


end sbgui__Support; 


*** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] 
-- * * * File: sbgui_support_b.a 

*** Generated: Mar 4 14:14:09 1996 

-- *** Author : Ruey-Wen (Vincent) Hong 

*** Date : Mar 5, 1996 

-- *** Application: CAPS Software Base 


_ ************************************************************************** 

_ • * 

* sbgui_Support -- Package BODY 

„ _ * 

_ ************************************************************************** 

with TAE; 
with Text^XO; 

-- one "with" for each panel in the resource file 

with Panel_backup_l; 

with Panel_create__l; 

with Panel_delete_l; 

with Panel_go; 

with Panel_grnd_eq; 

with Panel_keyword; 

with Panel_maintain; 

with Panel__mbn_kps; 

with Panel_op_no; 

with Panel_opdetail; 

with Panel_query; 

with Panel_sb_main; 

with Panel_sdetail; 

with Panel__select_l; 

-- MERGE NOTE: Add additional "with"s BELOW this line. 

-- MERGE NOTE: Add additional "with"s ABOVE this line. 

package body sbgui_Support is 
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NOTES: (none) 


REGENERATED: 

The following WorkBench operations will cause regeneration of this file: 
A panel is deleted 
A new panel is added 

A panel's name is changed (not title) 

For the panels: 

backup_l, create_l, delete__l, go, grnd__eq, keyword, maintain, 

mbn_kps, op_.no, opdetail, query, sb_main, sdetail, select_l. 


-i CHANGE LOG: 
-I MERGE NOTE: 
-I 4-Mar-96 


Add Change Log entries BELOW this line. 
TAE Generated 


MERGE NOTE: 


Add Change Log entries ABOVE this line. 


Greate_Initial_Pane1s 

-- Subprogram STUB 

procedure Create_Initial_Panels 

is separate; 

Initialize_All_Panels 

-- Subprogram BODY 

_ 



procedure Initialize_All_Panels 
( Resource__File 

: in String ) is 

--[ NOTES: (none) 

Vm_Collection_Read : TAE.Tae_Co.Collection_Ptr; 

-- MERGE NOTE: Add additional declarations BELOW this line. 
-- MERGE NOTE: Add additional declarations ABOVE this line. 

begin -- Initialize_All_Panels 

-- MERGE NOTE: Add additional code BELOW this line. (1) 

-- MERGE NOTE: Add additional code ABOVE this line. (1) 

-- do one Co_New and Co_ReadFile per resource file 
TAE.Tae_Co.Co_New 
( Flags => 0, 
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Coid => Vm_Collection_Read ); 

-- could pass P__Abort if you prefer 
TAE. Tae__Co . Co_ReadFile 

( Coid => Vm_Collection__Read / 

Spec => Resource_File, 

Mode => TAE.P_CONT ); 

Panel_backup_l. Initialize__Panel (Vin_Collection_Read) ; 
Panel_create_l.Initialize_Panel (Vin_Collection_Read); 

Pane l_de let e__l . Initialize_Panel (Vm_Collection_Read) ; 

Panel__go . Initialize_Panel (Vm__Collection_Read) ; 

Panel_grnd_eq.Initialize_Panel (Vm_Collection_Read); 
Panel_keyword.Initialize_Panel (Vm_Collection__Read); 
Panel_maintain.Initialize_Panel (Vm_Collection_Read); 
Panel_mbn_kps. Initialize_Panel (Vm_Collection_JRead) ; 

Panel_op_no.Initialize_Panel (Vm_Collection_Read); 

Panel__opdetail. Initialize_Panel (Vm_Collection_Read) ; 

Panel_query. Initialize__Panel (Vm_Collection_Read) ; 

Panel_sb__main. Initialize__Panel (Vm_Collection_Read) ; 
Panel__sdetail. Initialize_Panel (Vm_Collection_Read) ; 
Panel_select_l. Initialize__Panel (Vm_Collection_Read) ; 

-- MERGE NOTEs Add additional code BELOW tbis line. 

— MERGE NOTE: Add additional code ABOVE this line. 

exception 

when TAE.TAE_FAIL => 

Text_IO„Put_Line ("resfile_Support.Initialize_All_JPanels: ") ; 

Text_IO. Put_Line {Resource__File 

& " doesn't exist or is incorrectly formatted.”); 
raise; 

when TAE.Tae_Co.NO__SUCH_MEMBER => 

-- raised from one of the panel's Xnitialize_Panel 
raise; 

end Initialize_All__Panels; 


DispatchJPanel 


-- Subprogram BODY 


procedure Dispatch_Panel 
( User_Context_Ptr 

: in TAE„ TaeJWpt. Event_Context__Ptr; 
Panel__In_Resource_File 
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: out Boolean ) is 


--I NOTES: (none) 

begin -- Dispatch_Parm_Event 

Panel__In_Resource_File := TRUE; 

if TAE.Tae__Wpt."=" (User_Context_Ptr, Pane l_backup__l. Inf o) then 
Panel_backup_l.Dispatch_Item (User_Context_Ptr); 
elsif TAE.Tae__Wpt. n = " (User_Context„Ptr, Panel_create_l.Info) then 
Panel__create_l.Dispatch_Item (User_Context_Ptr) ; 
elsif TAE.Tae__Wpt."=" (User__Context_Ptr, Panel_delete__l.Info) then 
Pane l_de le t e__l .Di spat ch_Item (User_Context_Ptr) ; 
elsif TAE.Tae_Wpt • " = " (User_Context_Ptr, Pane l__go. Inf o) then 
Panel_go .Dispat ch__Iteia (User_Context__Ptr) ; 
elsif TAE.Tae_Wpt." = " (User__Context_Ptr, Panel__grnd_eq.Info) then 
Panel_grnd_eq.Dispatch_Item (User_Context_Ptr); 
elsif TAE.Tae_Wpt."=" (User_Context_Ptr, Panel_keyword. Inf o) then 
Panel_keyword.Dispatch_Item (User_Context_Ptr) ; 
elsif TAE.Tae_Wpt."=" (User_Context_Ptr, Panel__maintain.Info) then 
Panel_maintain.Dispatch_Item (User_Context„Ptr); 
elsif TAE.Tae_Wpt." = " (User_Context_Ptr, Panel_mbn_kps.Info) then 
Panel_mbn_kps-Dispatch_Item (User_Context_Ptr); 
elsif TAE .Tae__Wpt. ” = " (User_Context_Ptr, Panel_op__no . Inf o) then 
Panel_op_no.Dispatch_Itern (User_Context_Ptr) ; 
elsif TAE.Tae_Wpt."=” (User_Context_Ptr, Panel_opdetail.Info) then 
Panel_opdetail. Dispatch_Item (TJser_Context_Ptr) ; 
elsif TAE. Tae_Wpt. " = " (User_Context_Ptr, Panel_query. Inf o) then 
Panel_query.Dispatch_Item (User_Context_Ptr) ; 
elsif TAE.Tae_Wpt."=" (User_Context_Ptr / Panel_sb_main.Info) then 
Pane l_sb__main. Dispat ch_Item (User_Context_Ptr) ; 
elsif TAE.Tae_Wpt."= M (User_Context_Ptr, Panel_sdetail.Info) then 
Panel_sdetail.Dispatch_Item (User„Context„Ptr); 
elsif TAE.Tae_Wpt. *' = " (User_Context_Ptr, Panel_select_l.Info) then 
Panel_select_l.Dispatch_Item (User_Context__Ptr) ; 
else 

Pane l_In__Res our ce_File : = FALSE; 
end if; 

end Dispatch_Panel; 


— MERGE NOTE: Add additional code BELOW this line. (2) 
-- MERGE NOTE: Add additional code ABOVE this line. (2) 

end sbgui_Support; 
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# *** TAE Plus Code Generator version V5.3 *** 

# *** File: Make.sbgui *** 

# *** Generated: Feb 22 12:14:44 1996 *** 

# *** Author: Ruey-Wen (Vincent) Hong 

# *** Date: Mar 5, 1996 

# *** Application: CAPS Software Base 

##################################################################### 

# PURPOSE: 

# This file is included into the Makefile. It lists the generated 

# source files that are specific to the resource file: 

# /tmp_rant/users/work2/vincent/caps95/src/combine.work/sbgui.res 

# 

# REGENERATED: 

# The following WorkBench operations will cause regeneration of this file 

# A panel is deleted 

# A new panel is added 

# A panel's name is changed (not title) 

# For the panels: 

# backup_l, create_l, deleteJL, go, grnd_eq / keyword, maintain, 

# mbn__kps, op__no, opdetail, query, sb_main, sdetail, select__l, 

# 

##################################################################### 

SRCS_sbgui = \ 

pan_backup„l_s.a \ 
pan_backup_l_b.a \ 
pan_create_l__s. a \ 
pan__create_l_b.a \ 
pan_delete_l_s.a \ 
pan_delete_l_b.a \ 
pan_„go_s. a \ 
pan_go_b. a \ 
pan__grnd_eq_s. a \ 
pan_grnd_eq_b.a \ 
pan_keyword_s.a \ 
pan__keyword__b. a \ 
pan_maintain_s.a \ 
pan__maint a in_b. a \ 
pan_mbn_kps__s. a \ 
p an__mbn_kp s__b. a \ 
pan_op_no_s.a \ 
p an__op_no__b. a \ 
pan_opdet ail_s.a \ 
pan_opdet ail_b.a \ 
pan_query_s.a \ 
pan_query__b. a \ 
pan__sb_main_s. a \ 
pan_sb_main_b.a \ 
pan_sdetail_s.a \ 
pan_sdetail_b.a \ 
pan_select_l_s.a \ 
pan_select_l__b „a \ 
sbgui_support_s.a \ 
sbgui_support_b.a \ 
sbgui_creat_init.a \ 
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gldef.a \ 
asable.a \ 
semops.a \ 
utilop.a \ 
utilso.a \ 
nsa.a \ 
sigmat.a \ 
semat.a \ 
fresult.a \ 
swb_def.a \ 
ring.a \ 
swb.a \ 
init.a 


# 

# 

# 

# 

# 

# 


*** TAE Plus Code Generator version V5.3 *** 


*** File: 

*** Generated: 

* * * Author: 

*** Date: 

*** Application: 


Makefile *** 

Feb 22 12:14:44 1996 *** 

Ruey-Wen (Vincent) Hong 
Mar 5, 1996 
CAPS Software Base 
##################################################################### 

# PURPOSE: 

# This is the Makefile of an Ada application generated by the TAE Plus 

# Code Generator. 

# 

# REGENERATED: 


# This file is generated only once. Therefore, you may modify it without 

# impacting automatic code merge. 

# 

# NOTES: 

# 1. This Makefile is just a wrapper around the Verdix supplied 

# "a.make" and "a.mklib" commands. If you are porting this code to 

# another compiler, you will not be able to use this Makefile. 

# 

#2. To build your application, type "make". 

###############################^# ################################### 


PROGRAM = sbgui 


ADALIB = . 

AMAKEJFLAGS = -v -L $(ADALIB) 

AMKLIB_FLAGS = -v 

LDFLAGS = -o $(PROGRAM) 

# PROGRAMMER NOTE: 

# Add a line "#include Make.RESFILENAME' for each resource file in 

# your application. 

# 

include Make.sbgui 


# PROGRAMMER NOTE: 
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It & -c/v 0) & It 


Add $(SRCS_RESFIIiENAME) for each resource file in your application. 

GENSRCS = $(PROGRAM).a global_s.a global_b.a \ 

$(SRCS_sbgui) 


PROGRAMMER NOTE: 

Add your application specific srcs (that are not generated by the 
code generator) here. 

APPSRCS = 

SRCS = $(APPSRCS) $(GENSRCS) 


11s: mklibif $(PROGRAM) 


(PROGRAM):: 

a.make $(AMAKE_FLAGS) $(PROGRAM) $(LDFLAGS) -f $(SRCS) 


Only make the ada library if the file "ada.lib" doesn't exist. 


mklibif:: 


-@if 


$(TAEADALIB)"; \ 


fi; 


-f ada.lib ]; then \ 

echo "a.mklib $(AMKLIB_OPTS) $(ADALIB) 

a.mklib $(AMKLIB_OPTS) $(ADALIB) $(TAEADALIB); \ 


mklib:s 


a.mklib $(AMKLIB_FLAGS) $(ADALIB) $(TAEADALIB) 
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